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Aclaración importante 


Observará el lector de esta «Enciclopedia del BASIC» que la numera- 
ción de capítulos es correlativa, iniciándose en el Tomo | de la misma y 
finalizando en el Tomo V y último. 

Hemos creído conveniente tal continuidad, en primer lugar por el carác- 
ter secuencial de la Enciclopedia, al ser los temas que la constituyen corre- 
lativos entre sí y formando un todo inseparable; y en segundo lugar porque 
estimamos que ello facilita la rápida localización de cualquier tema, lo que, 
al tratarse de una obra de consulta frecuente, supone una indudable ventaja 
para el lector. 


Cómo estudiar 
en esta Enciclopedia 


Al comenzar cada Capítulo encontrará un esquema de contenido. La 
finalidad de este esquema es doble: 


— Por una parte, le ofrece una visión panorámica de todos los temas que 
va a estudiar en ese capítulo. 


— Por otra, si posteriormente debe repasar algún punto determinado, le 
facilitará el poder localizarlo. 


Leálos despacio para tener esta visión panorámica. 

Después del esquema de contenido, cada capítulo comienza defi- 
niendo sus objetivos. De esta manera usted sabrá desde el principio lo que 
aprenderá en él. También le servirá como referencia para saber si el ob- 
jetivo marcado ha sido alcanzado por usted. 

A lo largo de los capítulos y al final de los mismos encontrará unos 
resúmenes, seguidos de unos ejercicios de autocomprobación. Su finalidad 
es hacer un alto en el camino y recapitular lo estudiado desde la última 
parada. Al mismo tiempo, los ejercicios de autocomprobación le servirán 
para que usted mismo compruebe si ha asimilado los conceptos estudiados 
y si está en disposición de continuar adelante o, por el contrario, si es ne- 
cesario volver a repasar algo antes de seguir. La solución a los ejercicios 
de autocomprobación la encontrará al final de la primera parte del volumen. 

Le recomendamos también que, cuando deba interrumpir su estudio, 
lo haga siempre al final de un capítulo o al terminar de resolver alguno de 
los grupos de ejercicios de autocomprobación que aparecen a lo largo de 
las lecciones. 

Al hablar de la composición de la Enciclopedia, le dijimos que cada 
volumen se componía de dos partes. La del texto principal o estudio del 
BASIC estándar, y la de «Práctica con el microordenador», que viene a ser 
un complemento de la anterior. Ahora que va a comenzar a estudiarlo com- 
prenderá enseguida la razón de esta comparación. 

Cuando se aprende un idioma es frecuente que uno se encuentre con 
la sorpresa de que en determinadas regiones aquello que uno aprendió a 
decirlo de una manera se diga de otra. Con el lenguaje de programación 
BASIC pasa lo mismo. Cada fabricante introduce en el uso de su ordenador 
un dialecto distinto, que normalmente coincidirá en su mayor parte con el 
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BASIC estándar, pero tendrá suficientes características especiales como 
para que el que comienza se encuentre ante su ordenador sin saber qué 
hacer en determinados momentos. 

Por eso, como nuestra intención es que aprenda BASIC y que lo prac- 
tique con su microordenador hemos utilizado la Enciclopedia de modo que 
usted no se encuentre perdido en ningún momento. Así, al estudiar la lec- 
ción del BASIC estándar es como si dijéramos: Esto se dice así normal- 
mente en lenguaje BASIC. Sin embargo, cuando haya diferencias, añadi- 
remos en el capítulo «Prácticas con el microordenador»: Ojo, que esto 
mismo en su microordenador se dice de esta forma. De este modo, podrá 
dialogar tranquilamente con su microordenador sin desagradables sorpre- 
sas y traducir al lenguaje que entiende su microordenador un programa que 
en BASIC estándar pueda estar escrito de forma un poco diferente. 

Concretamente, en el estudio de las dos partes debe proceder del 
modo siguiente: 


— Comience siempre cada capítulo por el texto principal y continúe hasta 
que encuentre esta viñeta en el margen izquierdo: 


Verá que en la pantalla de la viñeta aparecen unos números. Concre- 
tamente 1.1. Esto indica que debe dejar en este momento el capítulo que 
está estudiando, y pasar al apartado 1.1. de «Prácticas con el microorde- 
nador». 


— Continúe ahora el estudio de «Prácticas con el microordenador» hasta 
que encuentre esta otra viñeta: 


En ella se le remite de nuevo al capítulo que dejó anteriormente, para 
continuar donde lo interrumpió. También aquí se le indica el sitio exacto 
donde debe continuar. En todo caso, le recomendamos que deje siempre 
una señal en la página donde interrumpe el estudio. Así tendrá siempre la 
página localizada. 


Observará el lector de esta «Enciclopedia del BASIC» que la nume- 
ración de capítulos es correlativa, iniciándose en el Tomo | de la misma y 
finalizando en el Tomo V y último. 


Hemos creído conveniente tal continuidad, en primer lugar por el ca- 
rácter secuencial de la Enciclopedia, al ser los temas que la constituyen 
correlativos entre sí y formando un todo inseparable; y en segundo lugar 
porque estimamos que ello facilita la rápida localización de cualquier tema, 
lo que, al tratarse de una obra de consulta frecuente, supone una indudable 
ventaja para el lector. 
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9.0 OBJETIVOS 


Iniciamos con este capítulo una segunda etapa en el estudio de la pro- 
gramación. Consiste en el estudio de las instrucciones que dan un cierto 
confort a la programación. 

Estas instrucciones no son en absoluto necesarias para la programa- 
ción. Con todas las instrucciones que conoce en este momento puede cons- 
truir cualquier programa que comporte sólo cálculo, excepto, claro está, 
cuestiones gráficas y de sonido. 

La primera instrucción que vamos a desarrollar en este capítulo nos 
introduce en una instrucción de amplia aplicación en programación: el 
bucle. 

La potencia de esta instrucción se debe a que permite especificar de 
una manera muy cómoda los procesos repetitivos que son muy frecuentes 
en los programas. 

Hay muchos procesos que se repiten al menos conceptualmente. Por 
ejemplo, el hacer una factura consiste en calcular una línea detrás de la 
otra con el mismo esquema de cálculo pero con distintos artículos, nombres, 
precios y cantidades. 

Diremos que el proceso es rutinario y repetitivo. 

Este tipo de trabajos son muy frecuentes en la elaboración de progra- 
mas en que la semejanza del proceso de cálculo es manifiesta, pero que 
deben realizarse con datos distintos. 

El BASIC tiene dos instrucciones específicamente diseñadas para fa- 
cilitar la programación de estos procesos: son las instrucciones FOR y 
NEXT. 

Debe poner mucha atención, pues es el primer caso que se nos pre- 
senta de dos instrucciones que deben actuar coordinadamente, es decir, 
no tiene sentido utilizar una sin utilizar la otra. 

Evidentemente todas las instrucciones del programa deben actuar de 
una forma coordinada para conseguir el fin propuesto, pero en el caso de 
las instrucciones FOR y NEXT, esta coordinación es más intensa, debido 
a que una no tiene sentido sin la otra; las demás instrucciones pueden ac- 
tuar aisladamente. 

Puede parecer extraño que se dedique un capítulo a una sola instruc- 
ción; pero es debido a que, dada su importancia, es necesario asimilar muy 
bien su forma de actuar. 

Hemos desarrollado el tema de una manera muy pormenorizada, con- 
siderando casos cada vez más complicados para mostrar gradualmente la 
potencia de la instrucción. 

Estúdielos con cariño aunque le parezcan demasiado sencillos. La ex- 
periencia nos indica que, a pesar de su aparente sencillez, se cometen mu- 
chos errores en programación debido a la utilización equivocada de la ins- 
trucción, que provienen de una mala utilización de los conceptos. 

Sobre todo ponga atención en las cosas que debe evitar para que el 
funcionamiento de la instrucción sea correcto. 

Queremos advertirle que hemos utilizado la comparación del meca- 
nismo de funcionamiento de las instrucciones FOR y NEXT con el meca- 
nismo propio de estas instrucciones, pero desarrollado con las instrucciones 
que conocemos en el momento de iniciar el capítulo. 
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Aprecie esta comparación en dos aspectos: 

En primer lugar, le ayudarán a comprender de un modo exacto el con- 
cepto de bucle y su funcionamiento. 

En segundo lugar, tenga en cuenta que las instrucciones FOR y NEXT 
siempre se pueden sustituir por el conjunto de estas otras instrucciones más 
elementales. Esta característica le puede ayudar a detectar los errores 
cuando un bucle no funcione. 


9.1 LA ESTRUCTURA DE REPETICION 


En capítulos anteriores hemos aprendido diversas instrucciones, con 
distintas finalidades: entrada de datos, cálculo, impresión de resultados, 
control... En este capítulo vamos a referirnos de nuevo a estas últimas, para 
conocer una de sus posibilidades más interesantes: la construcción de es- 
tructuras de repetición. 

Aunque hemos visto ya algunos programas para construir bucles —bu- 
cle es otra manera de llamar a las estructuras de repetición—, vamos a 
dedicar todo este capítulo a este tipo de estructuras, profundizando en su 
utilización, y extendiéndonos en sus posibilidades, ya que estas tareas 
constituyen la base de aplicación de los ordenadores. 

Para ejecutar un proceso más de una vez, conocemos la instrucción 
GOTO. Si esta instrucción se sitúa al final de un proceso cualquiera, de 
forma que nos remita el control de nuevo al inicio del mismo, obtendremos 
la ejecución repetida de este proceso. Veamos un caso cualquiera; por 
ejemplo, la escritura de un texto. Para imprimir un texto, como la frase 
«HOLA, QUE TAL?», escribiremos: 


NEW 7 
10' .. PRINT. "HOLA,. QUE TAL?" 


y ejecutaremos el programa, con lo que obtendremos el texto 
«HOLA, QUE TAL?» 


escrito en la pantalla, tal como queríamos. 


Si ahora deseamos que se repita el proceso, tal como hemos dicho, 
deberemos escribir: 


20 GOTO 10 


de forma que el programa nos queda: 


10  FRINT "HOLA, QUE TAL?" ; 
ZO GOTO 10 O 
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también se llama bucle 


La variable de control 
del bucle 


Si ahora escribimos RUN, desencadenamos un bucle sin final, de 
forma que el texto se escribirá repetidamente en la pantalla hasta que de- 
tengamos el programa, pulsando la correspondiente tecla de interrupción. 

Hemos generado una estructura de repetición, pero evidentemente una 
estructura descontrolada. Esto no nos resulta útil. Lo que nos- interesaría 
es repetir el proceso pero no indefinidamente, sino bajo unas condiciones 
determinadas, que nosotros pudiéramos fijar. Así por ejemplo, nos intere- 
sará repetirlo un número de veces determinado: 10, 20, 1000, ..., o bien 
repetirlo únicamente si se cumplen unas condiciones especiales. ' o que 
importa, pues, es tener el contro!: poder indicar cuándo se ha de realizar y 
cuántas veces se ha de repetir un proceso. 

Para «decidir» en un programa, conocemos otra instrucción, que nos 
permite elegir entre una o varias alternativas. Esta instrucción, que también 
hemos visto en anteriores unidades didácticas, es la instrucción IF... THEN... 

Dado que esta instrucción nos permite escoger ante una disyuntiva, la 
podemos utilizar para controlar el bucle. La forma de hacerlo es dar la in- 
dicación de seguir el bucle únicamente si se cumplen las condiciones que 
nosotros hayamos establecido. 

Hemos dicho que una posible condición es que se hayan dado un nú- 
mero de vueltas determinado, lo que equivale a haber repetido el proceso 
este número de veces. Esto implica que se necesita de alguna forma con- 
trolar las vueltas que se han dado. Para ello utilizaremos una variable que, 
dada su finalidad, se denominará variable de control. Veamos cómo po- 
demos controlar el bucle que teníamos escrito: 


10 ERINT "HOLA, QUE: TAL?" 
0 GOTO 10 


Supongamos que lo queremos controlar de forma que nos escriba el 
texto diez veces, y que se pare a continuación. En primer lugar necesita- 
remos incluir un «contador» en el bucle, una variable que se incrementa en 
una unidad cada vez que escribamos el texto, de forma que cuando esta 
variable alcance el valor 10 —lo habremos escrito diez veces— el control 
se transfiera fuera del bucle. La estructura básica del bucle ya la tenemos: 


O ERINT "HOLA, QUE TAL?" 
O GOTO 10 
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Debemos ahora incluir las instrucciones necesarias para realizar el 
control. 

Veamos en primer lugar la cuestión del contador. Utilizamos la variable 
| como variable de control. Cuando empezamos el proceso le asignamos 
el valor 1, dado que vamos a efectuar la primera vuelta. Así, antes de entrar 
en el bucle haremos: 
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Inicialización de la variable 
de control 


A continuación escribiremos el texto una vez. Cuando se haya escrito, 
habrá que incrementar el contador. Esto equivaldría a hacer: 


|I=2 


A la siguiente vuelta, se escribirá de nuevo el texto. Ahora deberá ha- 
cerse: 
|=3 


Y de esta forma se irá repitiendo el proceso. El contador deberá tomar 
sucesivamente los valores 1, 2, 3, 4, 5, ... 

Es decir, el valor de la | se incrementa a cada vuelta en una unidad. 
Esto corresponde a sumar uno al valor de la |, es decir, hacer |+1 a cada 
vuelta. El valor resultante lo podemos almacenar de nuevo sobre la propia 
variable |. La instrucción para ello en BASIC será: 


LETICIA id 


La expresión l=1+1 no tiene sentido desde el punto de vista mate- 
mático. Sin embargo, en BASIC conocemos ya su significado; el signo igual 
(=) no tiene el sentido matemático de igualdad, sino que tiene sentido de 
asignación. Es decir, se toma el valor de la variable |, se le suma la unidad, 
y el resultado se asigna de nuevo sobre la misma variable. Esta queda 
modificada; su valor actual será el que tenía más la unidad. 

El valor de la variable | corresponderá, pues, al número de vueltas que 
haya dado el bucle. El programa quedará: 


3 LEIOA 

10 PRINT "HOLA, QUE TAL?” 
15 LETRA Al 

ZO GOTO 10 


Si queremos además ver cómo va incrementándose el contador, aña- 
diremos una instrucción para que nos lo escriba: 


12 ERINT 1 


El resultado del programa será ahora: 
HOLA, QUE TAL? 


1 
HOLA, QUE TAL? 
2 
HOLA, QUE TAL? 
3 
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Ahora, una vez hemos establecido el sistema de contar vueltas, nos 
hace falta añadir la instrucción de control, de forma que podamos salir del 
bucle cuando se haya escrito diez veces el texto. Así, como una instrucción 
IF... THEN..., comprobaremos si ya hemos dado 10 vueltas, es decir, si 


I>10 


y en caso afirmativo, saldremos del bucle. 

Para el ejemplo que estamos viendo, el proceso consiste en realizar 
una escritura. Por tanto, después de escribir, se controla si debemos con- 
tinuar o no. Si se cumplen las condiciones fijadas —que en este caso de- 
penderán del valor de la variable de control, que es lo mismo que decir el 
número de repeticiones hechas— se devuelve el control al principio del 
bucle, donde se efectúa una nueva ejecución de la escritura. 

En el ejemplo que estamos viendo, para la escritura del texto, la ins- 
trucción de control se deberá situar en la línea del GOTO, es decir, la línea 
20. Escribiremos entonces: 


20 IF 1I(= 10 THEN GOTO 10 


El programa completo quedará ahora: 


S LET I=1 

10 PRINT "HOLA QUE TAL?” 
12 PRINT 1 

15 LET I=1+1 

20 IF 1(= 10 THEN GOTO 10 


Observe que la pregunta se ha colocado en forma negativa, es decir, 
es equivalente a NOT 1>10, si es afirmativa se vuelve al inicio del bucle. 

En resumen, los bucles o estructuras de repetición se construyen con 
los ingredientes siguientes: 


1. Una variable de control que debe inicializarse. 


2. Esta variable de control se incrementa en cada una de las vueltas, 
después de ejecutar la acción que quiere repetirse. 


3. Una pregunta o decisión del tipo |F...THEN, que decide si el bucle 
debe continuarse o no. 


4. Por fin, un cuerpo del bucle que consiste en la secuencia de ins- 
trucciones a realizar en cada vuelta. En el ejemplo que hemos puesto este 
cuerpo es corto, son las dos instrucciones PRINT, pero puede ser mucho 
más largo. 
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Actuación coordinada del 
FOR y el NEXT 


9.2 LA INSTRUCCION FOR Y LA INSTRUCCION NEXT 


Dado que los procesos de repetición son sumamente frecuentes, el 
BASIC dispone de una manera más cómoda de escribirlos, utilizando las 
instrucciones FOR y NEXT. 

La instrucción FOR sirve para indicar el principio del bucle y fijar las 
condiciones iniciales y finales de la variable de control del mismo. 

La instrucción NEXT marca el final del cuerpo del bucle, indicando el 
alcance del mismo. 

Entre ambas se escribe la acción o acciones a repetir. Así, de una 
forma general un bucle está constituido por tres partes: 


Instrucción FOR —= Inicio del bucle 
Acción a repetir 


Instrucción NEXT — Final del bucle 


La acción a repetir y la instrucción NEXT suelen escribirse más hacia 
la derecha que la instrucción FOR. Esto se hace para indicar las instruc- 
ciones que forman parte del bucle, resaltando el alcance del mismo. 

Es importante que se dé cuenta de que ambas instrucciones actúan 
de modo coordinado. 

Es decir, no es posible pensar en una instrucción FOR sin la NEXT y 
viceversa. De alguna manera actúan del mismo modo que los paréntesis. 
La instrucción FOR abre el paréntesis y la instrucción NEXT lo cierra. Un 
texto quedará incompleto si abrimos un paréntesis y no lo cerramos o ce- 
rramos un paréntesis sin haberlo abierto. 

Debemos señalar que se trata de una comodidad, pues se pueden 
construir bucles con las instrucciones que se han visto hasta ahora; es de- 
cir, mediante la asignación, el GOTO y el IF... THEN. Por esta razón, todo 
lo que digamos se puede comparar con el programa que hemos visto en 
el apartado anterior, aunque para establecer una comparación más estricta, 
utilizaremos la siguiente forma del programa: 


5: LET I=1 5 LET F=10 


10 FRINT "HOLA QUE TAL?" 
12 FRINT 1 

15 LET I=1+1 

20 IF l(= F THEN GOTO 10 


La diferencia que hay con el programa anterior es que se ha introducido 
la variable F para indicar el final del contador, en lugar de hacerlo en la 
instrucción 20. 
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Vamos a ver con detalle la forma de escribir y de utilizar estas instruc- 
ciones. 


9.2.1 Instrucción FOR 
La forma general de escribir una instrucción es: 
FOR variable = primer valor TO último valor 


Por ejemplo, podemos escribir: 


FOR 1 ='"1 TO 10 


cuyo significado es: 
para | igual a 1 hasta 10 
La función de esta instrucción es cuádruple: 
Funciones del FOR 1. Indicarnos que se inicia un bucle (por lo tanto que abrimos una es- 


pecie de paréntesis, que más tarde deberemos cerrar). 


2. Definir la variable que se utilizará como control, en este caso la | (si 
la variable está definida no ocurre nada). 


3. Inicializar el valor de la variable de control al valor inicial indicado 
en el FOR. En este caso se le da el valor 1. 


4. Inicializar el valor que servirá de final del bucle. En este caso se le 
da el valor 10. 


Si se compara con el programa que hemos realizado sin la instrucción 
FOR, ésta equivale a la instrucción 5, en donde definimos los valores de | 
y de F, como valores inicial y final respectivamente. 


9.2.2 Instrucción NEXT 
La forma general de escribir esta instrucción es: 
NEXT variable 


La variable debe ser la de control del bucle. La palabra NEXT significa 
siguiente en inglés. 
La función de esta instrucción es triple: 


Funciones del NEXT 1. Cierra el bucle iniciado anteriormente con la variable de control es- 
pecificada en la instrucción NEXT (por lo tanto, cierra el paréntesis que 
hemos abierto anteriormente en una instrucción FOR). 
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2. Incrementa el valor de la variable de control. 


3. Ejecuta la pregunta de si el valor de la variable control sobrepasa 
al valor final. En caso de que sea cierta, continúa con la instrucción si- 
guiente. Si la afirmación es falsa, envía el control del programa a la ins- 
trucción siguiente a la instrucción FOR, que tiene como variable de control 
a la especificada en el NEXT. 


En el programa que hemos tomado como ejemplo se corresponde con 
las instrucciones de las líneas 15 y 20. 
Así, un bucle que deba efectuar 10 repeticiones, se escribirá: 


FOR 10% E-=T0 10 
Accion a realizar 
NEXT 1 


Justamente éste es el caso de nuestro ejemplo, el cuerpo de las ac- 

ciones a realizar se sitúa entre las instrucciones FOR y NEXT, que corres- 
¿ponde a las instrucciones 10 y 12. 

Estas instrucciones situadas entre el FOR y el NEXT se repetirán tan- 
tas veces como indique la variable de control. 

La comodidad que representa la utilización del FOR y el NEXT en lugar 
de las instrucciones elementales, consiste precisamente en expresar de 
una manera compacta lo que se da con mucha frecuencia en programación. 
Además observe que en el caso del FOR y NEXT no es necesario utilizar 
un GOTO); éste conlleva la necesidad de recordar un número de línea mien- 
tras se escribe el programa. 


9.2.3 Funcionamiento del bucle 


El funcionamiento de un bucle, controlado mediante estas instruccio- 
nes, es el siguiente: 

En primer lugar, la instrucción FOR indica las condiciones de ejecución 
del bucle, fijando los valores que debe tomar la variable de control del 
mismo. 

Para realizar un seguimiento más cuidadoso de lo que ocurre a con- 
tinuación damos el programa propuesto como ejemplo, escrito con la ins- 
trucción FOR y NEXT y sin ella: 


5. LET I=1 : LET F=10 5 FOR 1 = 1 TO 10 

10 FPRINT "HOLA QUE TAL?" 10 — FPRINT "HOLA QUE TAL?" 
12 FRINT 1 $2. BRINTOE 

15 LET I=1+1 : 

20 1F l(= F THEN GOTO 10 20 NEXT 1 


Primera vuelta: Pasamos por la instrucción FOR, que asigna a la va- 
riable de control el valor inicial indicado en la misma. La equivalencia de 
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La variable de control está 


incrementada cuando sale 


20 


del bucle 


las dos instrucciones 5 en ambos programas nos muestra las operaciones 
exactas que realiza la instrucción FOR. 

Se ejecutan las instrucciones del cuerpo del bucle hasta llegar a la 
instrucción NEXT. La correspondencia de los programas indica que se im- 
prime el mensaje y el valor de la variable de control. 

La instrucción NEXT incrementa en primer lugar el valor de la variable 
de control. En la comparación de programas es equivalente a la instruc- 
ción 15. 

A continuación se compara este valor con el último que debe tomar. 
Pueden presentarse entonces dos casos: 


— Si el valor asignado es superior al valor máximo, el bucle debe terminar. 
El control es automáticamente transferido fuera del mismo. Esto quiere 
decir que pasará a la línea situada a continuación de la instrucción NEXT 
que marca el final del bucle. 


— Si el valor asignado es inferior o igual al valor máximo, nos encontramos 
en situación de ejercutar el bucle. El control se transferirá a la instrucción 
siguiente, situada dentro del bucle. 


De esta forma, se van ejecutando las instrucciones del mismo, hasta 
llegar a la instrucción NEXT. 

La instrucción NEXT marca, como ya hemos dicho, el final del bucle. 
Su función es transferir de nuevo el control a la línea siguiente de la ins- 
trucción FOR, para la vuelta siguiente. 

Segunda vuelta y siguientes. Se inicia el cuerpo del bucle en la ins- 
trucción siguiente del FOR dejando inalterada la variable de control. 

Se continúa con todas las instrucciones del bucle hasta alcanzar de 
nuevo la instrucción NEXT. 

Se incrementa el valor de la variable de control, es decir, se suma la 
unidad al valor actual de la misma. 

A continuación, se compara el valor resultante con el valor máximo 
indicado por la propia instrucción FOR, presentándose dos posibles situa- 
ciones, tal como en la primera vuelta: 


— Valor inferior o igual al máximo: se prosigue la ejecución del bucle. 


— Valor superior al máximo: no se ejecuta el bucle, transfiriéndose el con- 
trol a la instrucción siguiente del NEXT. 


De esta forma, se va repitiendo el proceso, hasta que la variable de 
control alcanza el valor máximo. 

Ejecute el programa de ejemplo que está escrito con el FOR y com- 
pruebe el funcionamiento indicado. El resultado de la ejecución debe de ser 
idéntico al descrito en el apartado primero de este capítulo. 

Al salir del bucle, el valor de la variable de control ha superado el má- 
ximo en una unidad. Comprobémoslo con el comando de ejecución inme- 
diata: 


PRINT | 
Observamos que escribe un 11. 


Modificación de los límites 
superiores e inferiores 
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Tal como hemos visto, la última vez que se ejecuta el bucle la | vale 
10. Antes de la instrucción NEXT se suma una unidad a la variable de con- 
trol: | vale 10, pasa a valer 11. A continuación se compara este valor con 
el máximo, y como es superior, el control se transfiere fuera del bucle, sin 
modificar el valor de la |. El valor de ésta, por tanto, es 11. ' 


9.2.4 Diversos casos de bucles FOR 


Consideremos en primer lugar el programa siguiente: 


imprime cinco veces la variable de control y la palabra «HOLA». 
El resultado de la ejecución es: 


1 HOLA 
2 HOLA 
3 HOLA 
4 HOLA 
5 HOLA 


Si queremos variar el número de repeticiones, modificaremos la línea 
10. Para efectuar 10 vueltas, escribiremos: 


con lo que en pantalla aparecerá 10 veces la palabra HOLA, precedida del 
valor de la | correspondiente. 
Se puede modificar también el valor inicial de la variable, escribiendo: 


al ejecutarlo ahora, veremos en pantalla: 


7 HOLA 
8 HOLA 
9 HOLA 
10 HOLA 


21 


BASIC 


La variable de control puede 
utilizarse en los cálculos en 
el interior del bucle 
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Debe tenerse en cuenta que si el valor inicial que fijamos ya es superior 
al final, por ejemplo, 


FOR TE TU"TO d 


el comportamiento puede diferir según el modelo de ordenador del que se 
trate. La diferencia consiste que en algunos lenguajes BASIC la decisión 
de salir del bucle se realiza en la instrucción FOR y en otros en la instrucción 
NEXT. Con el esquema que hemos explicado aquí el bucle se realiza por 
lo menos una vez ya que la decisión de salir del bucle se toma en la ins- 
trucción NEXT. Para conocer el funcionamiento de su máquina en par- 
ticular, tenga en cuenta lo que se dice en la lección de prácticas. 

La variable de control puede utilizarse en el cuerpo del bucle para rea- 
lizar cualquier tipo de cálculo. Esto permite una fácil realización de progra- 
mas que construyan tablas. Veamos un ejemplo de construcción de la tabla 
de los cuadrados de los números del 1 al 5. El resultado a obtener es: 


1 al cuadrado es 1 
2 al cuadrado es 4 
3 al cuadrado es 9 
4 al cuadrado es 16 
5 al cuadrado es 25 


El programa para ello se escribe: 


NEW 

+0 17 MO E 00% MS Y JB 

20 ERINT 13" al cuadrado es "3102 
3o NEXT 1 


Ejecutémoslo para comprobar su correcto funcionamiento. Cambiando 
los valores límite de la variable de control, podremos obtener otras tablas 
de cuadrados. Así, para tener los cuadrados del número 5 al número 10, 
bastará escribir: 


Si queremos la tabla completa, del 1 al 10, deberemos escribir: 


FOR 1 = 1 TO 10 
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Las variables de un 
programa pueden interferir 
en el cálculo de los valores 

iniciales y finales de la 
instrucción FOR 


Sin embargo, esto nos resulta un poco incómodo, pues cada vez que 
queremos variar los límites, debemos editar la línea 10. 

Vamos a ver que esto no es necesario. El BASIC nos permite utilizar 
variables para indicar los valores inicial y final de la variable de control. Así, 
podemos escribir: 


10 FOR 1 = PP. TOU 


siendo P y U dos variables que pueden tomar los valores que se desee. 
Para asignarlos en cada caso, añadiremos dos instrucciones: 


5 INPUT "ERIMER VALOR",P 
7 INPUT "ULTIMO VALOR", U 


El listado completo del programa será ahora: 


5 INPUT "ERIMER VAL.OR",P 

7 INFEUWT "ULTIMO VALGR", U 

10 FOR 1 = E TO 

20 ERINT 13" al cuadrado es "2102 
30 NEXT 1 ñ By 

40 GO TO 5 


Ejecutando ahora el programa, podemos escribir la tabla que desee- 
mos, sin modificarlo. 

Por otra parte, nos podría interesar que cada vez la tabla tuviera 10 
valores, de forma que pudiéramos Verla completa en pantalla. Para ello, 
bastaría introducir el valor inicial —que interesara que sea variable— y cal- 
cular el valor final cada vez. Así, si el valor inicial que se introduce es 1, el 
final deberá ser 10; si empezamos por el 5, el último valor será el 14, etc. 
Por tanto, dado el valor inicial, el final'se determina sumándole 9. 

Para que este cálculo lo efectúe directamente el programa, podríamos 
sustituir la línea 7 por: 


7LETU=ZRS+9 


Si P vale 1, el último valor será 10, con lo que nos escribirá la tabla de 
cuadrados desde 1 a 10, tal como deseábamos. 

Sin embargo, el BASIC nos ofrece una nueva posibilidad, y es la de 
incluir la operación en la misma instrucción FOR. Así, se puede escribir: 
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En 


el cálculo del valor inicial 
y final de una instrucción 
FOR se puede utilizar 


cualquier expresión válida en 
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De esta forma, el propio programa determina el valor máximo de la 
variable de control efectuando la operación indicada a cada vuelta. 
Podremos borrar la línea 7, con lo que el listado del programa quedará: 


Al ejecutar el programa, indicando 1 como valor inicial, obtendremos 
la tabla: 


1 al cuadrado es 1 
2 al cuadrado es 4 
3 al cuadrado es 9 
4 al cuadrado es 16 
5 al cuadrado es 25 


6 al cuadrado es 36 
7 al cuadrado es 49 
8 al cuadrado es 64 
9 al cuadrado es 81 


10 al cuadrado es 100 


En este caso, se asigna al valor final de la variable de control el re- 
sultado de una suma. En general, puede hacerse con cualquier operación, 
y tanto para calcular el valor inicial como el final. 


Así, se podría escribir también 


Dando 10 como valor de P, tendríamos la tabla de cuadrados de los 
números 20 al 50. En general, se puede utilizar como valor inicial y final 
cualquier expresión matemática que cumpla las normas del BASIC. 


BASIC 


El incremento de la variable 
de control se realiza 
mediante el valor del paso 


9.3 BUCLE ESCALONADO 


Podría interesarnos obtener únicamente la tabla de los números pares, 
o de los números de 3 en 3, de 4 en 4... 

El BASIC nos permite indicar, dentro de la misma instrucción FOR, un 
incremento de la variable de control distinto de la unidad. Para ello se es- 
cribe la instrucción FOR tal como la conocemos, pero se indica al final de 
la misma el incremento que se desea para la variable 1. Esto se hace es- 
cribiendo STEP seguido del incremento. STEP significa en inglés escalón 
O paso. Así, la instrucción FOR completa se escribe: 


FOR variable = primer valor TO último valor STEP intervalo 


Para el caso que deseáramos obtener la tabla de los cuadrados de los 
diez primeros números pares, deberíamos borrar la línea 5, y escribir: 


10 FOR 1 = 2 TO 10 STEP E 


Ejecutando ahora el programa, el resultado sería 


2 al cuadrado es 4 

4 al cuadrado es 16 
6 al cuadrado es 36 
8 al cuadrado es 64 


10 al cuadrado es 100 


El funcionamiento del bucle no ha variado; se asigna a la variable de 
control el primer valor (en este caso 2), se ejecuta la primera vuelta, y al 
calcular el siguiente valor de /, en lugar de sumársele la unidad, se le suma 
el valor del intervalo indicado por el STEP. En este caso será 2+-2, por tanto * 
4. Así se va ejecutando el bucle, / va tomando los valores 2, 4, 6, 8 y 10. 

El bucle se detiene en el momento que la variable de control alcanza 
un valor superior al máximo. En este caso, / llega al valor 10, y se ejecuta 
el bucle; a la siguiente vuelta, la / valdrá 


10+2 = 12 


que es superior al máximo. Por tanto, el control será transferido ya fuera 
del bucle. ; 

Modifiquemos ahora el programa de forma que el intervalo sea impar 
(3 por ejemplo). Para ello escribiremos: 
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10 FDR 1 = 2 TO 10 STEF 3 


Si ejecutamos ahora el programa, veremos en pantalla: 


2 al cuadrado es 4 
5 al cuadrado es 25 
8 al cuadrado es 64 


En este caso, el bucle da tres vueltas, tomando la / los valores 2, 5 y 8 
sucesivamente. Nunca llega la / a igualarse al valor máximo. Sin embargo, 
el bucle se detiene, porque en la cuarta vuelta la / valdrá: 


8+3=11 


que ya es superior a 10. En este caso, pues, el bucle no se ejecuta. 

El valor del intervalo debe especificarse únicamente si es distinto de la 
unidad. Si la variable de control debe ir creciendo de 1 en 1 (tal como ha- 
bíamos visto en secciones anteriores), puede omitirse la indicación del paso 
(no hace falta escribir STEP 1). Así, la instrucción 


FOR 1 = i TO 10 STEP 1 
tiene exactamente el mismo efecto que la instrucción 


FOR 1 = 1 7010 


Por otra parte, el BASIC permite indicar el valor del incremento me- 
diante un número o una expresión. Así, si deseamos escribir la tabla de 
cuadrados variando cada vez el incremento entre los números, podremos 
escribir: 


S INEUT "ENTRE El INCREMENTO", S 


y modificar la línea 10 de la siguiente forma: 


10 FOR I = 1 TO 10 STEF S 


El paso en el bucle debe ser 
distinto de cero 
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el listado completo quedará ahora: 


S INFUT "ENTRE El INTERVALO”, S 

10 FOR 1 = 1 TO 10 STEFR S 
20 ERINT 13" al cuadrado es "3102 
30 NEXT 1 


Ejecutando ahora el programa, podremos observar los resultados 
distintos que se obtienen al introducir los diferentes valores del intervalo: 
Mei 

Ejecute una vez más el programa, y entre el O como valor del intervalo. 
Observará que el programa queda encallado, escribiendo repetidamente: 


1 al cuadrado es 1 


Para detenerlo utilizaremos la tecla de interrupción. Más adelante ex- 
plicaremos qué es lo que ha sucedido; el porqué de que el programa se 
encalle en un bucle con STEP 0. 


9.4 BUCLES DECRECIENTES 


Hasta ahora, hemos utilizado únicamente bucles ascendentes, en que 
el valor de la variable de control crece, el valor inicial es inferior al final. 
¿Puede darse la situación inversa? Es decir, ¿se puede construir un bucle 
en que la variable vaya disminuyendo, desde un valor superior a uno in- 
ferior? 

O lo que es lo mismo, ¿puede escribirse un bucle decreciente? 

Por ejemplo, ¿podríamos utilizar un bucle FOR/NEXT para realizar un 
programa que escribiera los números pares de 10 hasta 0? 

Esto puede hacerse en BASIC utilizando las instrucciones FOR y NEXT 
tal como ya sabemos, pero indicando un valor negativo del incremento. En 
este caso, además, es necesario que el valor inicial de la variable de control 
sea superior al valor final. 

Así, el programa para tener los números pares en orden decreciente, 
se podría escribir: 


NEW 
10 REM Bucle descendente 
20 FOR 1 = 10.TO O STER -2 


30 ERINT 1 
40 NEXT 1 
50 STOP 


Al ejecutar el programa, veremos en pantalla la lista de números 10, 
8, 6, 4, 2, 0. 
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El valor de un paso en un 
bucle puede se; negativo 


El funcionamiento de estos bucles es el descrito para los bucles cre- 
cientes. Se asigna el primer valor a la variable de control —que en este 
caso ha de ser superior al valor final de la misma— y se ejecuta el bucle. 
En la siguiente vuelta, se le sumará al valor actual de la variable control, el 
valor del STEP. En este caso, será 


10 + (-2) =8 


y proseguirá la ejecución del bucle. Este finalizará después de escribir el 
O, ya que al sumar: 


0 + (-2) = -2 


obtendremos un valor de / inferior al final, con lo que acabará el proceso. 
Las características que determinan un bucle decreciente son, pues, 
que el valor inicial de la variable de control sea superior al valor final, y que 
el incremento o paso sea negativo. 
Cuando el valor final es mayor que el valor inicial, por ejemplo, 


FOR I= 1 TO 10 STER -1 


(este caso se corresponde con el caso del valor final menor que el inicial 
en el caso de bucles crecientes), el comportamiento del bucle depende de 
cada ordenador y en el capítulo de prácticas obtendrá el comportamiento 
exacto para su ordenador. Sin embargo, en el estilo del bucle que se ha 
explicado aquí, en que la pregunta se realiza en la instrucción NEXT, el 
bucle se ejecuta por lo menos una vez. 


| RESUMEN 


Es frecuente encontrar en las aplicaciones de la programación 
estructuras que se repiten. Al mecanismo que permite esta repetición 
se le denomina bucle o estructura de repetición. 

El mecanismo se basa en una variable, que se denomina variable 
de control. 

Esta variable se modifica en cada vuelta o repetición y mediante 
un mecanismo de decisión, es decir, una instrucción |F...THEN re- 
petimos o no el proceso. 

También es necesario un proceso de inicialización antes de em- 
pezar el bucle, para dar a la variable de control el valor inicial ade- 
cuado. 

El BASIC dispone de dos instrucciones para realizar este meca- 
nismo de una manera más cómoda, que son: el FOR y el NEXT. 

La instrucción FOR abre el bucle, del mismo modo que se abre 
un paréntesis y realiza las tareas de inicializar las variables. 
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La instrucción NEXT incrementa el valor de la variable de control 
y decide si hay que continuar o no la repetición. Es la instrucción que 
cierra el paréntesis abierto por la instrucción FOR. 

Este mecanismo de coordinación nos indica que no tiene sentido 
la instrucción FOR sin la NEXT y viceversa. 

Las funciones principales de la instrucción FOR consisten en ini- 
cializar el valor de la variable de control, calcular el valor final y es- 
tablecer el paso o escalón del bucle. 

Este cálculo se realiza porque pueden darse expresiones en los 
valores inicial, final y paso que sean válidas en BASIC. 

El paso negativo da origen a un bucle decreciente, mientras que 
un paso positivo da origen a un bucle creciente. 

El comportamiento del BASIC si un valor final es menor que el 
valor inicial en un bucle creciente o si un valor es mayor que el inicial 
en un bucle decreciente, depende del ordenador que se utilice. Por lo 
tanto, delante de una máquina desconocida hay que experimentar 
para poder saber exactamente cuál es el mecanismo de actuación. 

Las funciones principales del NEXT, son incrementar la variable 
de control, según indica el valor del escalón, y comparar este valor 
con el valor final, para decidir si continuar o no el cuerpo del bucle. 


EJERCICIOS DE AUTOCOMPROBACION 


Complete las frases siguientes: 


1. Para programar cosas repetitivas se utiliza el ................................ 


2. El control de la repetición se hace mediante la ................................ 


3. Los bucles se pueden programar sin .................... especiales. 


4. El BASIC dispone de las instrucciones .................... o iOS 
para hacer más sencilla la programación de los bucles. 


5. La instrucción FOR marca el .................... de un bucle. 


6. La instrucción NEXT marca el .................... de un bucle. 


7. No tiene sentido una instrucción FOR sin una instrucción ............ 
pss y viceversa. 
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8. Los valores inicial, final y el paso de un bucle, que se especifican 


en un FOR pueden ser cualquier .................... válida en BASIC. 
9. La misión principal de un NEXT es .................... la variable de con- 
trol. 


10. Cuando la variable de control disminuye el bucle se denomi- 
Menos isis 


Encierre en un círculo la alternativa que corresponde a la respuesta 
correcta 


11. En el bucle 


FOR. = TE TOS IESTER 2 
PRINT 1 
NEXT 1 


qué secuencia de números imprime. 
a) 1 
b) 1,3 
Ca, 
d) 3 


12. En el bucle 


FOR 1. =-1 TO 3 STEFR 2 
FERINT I- 
A EN 


qué secuencia de números imprime. 


a) -1,-3 
b) -1,1,3 
Cc) 0,2 

d) -2, -4 
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13. En el bucle 


FOR 1 = 9 TOS STEP -3 
PFRINT 1 
NEXT 1 


qué secuencia de números imprime. 


a) 9,6 
b) 9, 6,3 
Cc) 9 

d) 6, 3 


14. En el bucle 


FOR. 1.= =3T70 =8 STEP =3 
FRINT I 
NEX POE 


qué secuencia de números imprime. 


a) —3 

b) —3, —6, -9 
C) 3, -5 

d) -3, 6 


15. En el bucle 


FOR 1 = 101 TO 125 STEP 28 
FRINT 1 
NEXT 1 


qué secuencia de números imprime. 


a) 101, 112 
b) 125 
c) 101 
d) 128 
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16. En el bucle 


qué secuencia de números imprime. 


a) 1,2,3,4,5 
b) 5, 6,7,8,9 
c) 2, 4, 8, 16, 32 
d) 1,3,6;-10,15 


17. En el bucle 


qué secuencia de números imprime. 


a) 0, -2, 4 
b) 0, 0.5, -1.25 

-C) 0.25, -2.125, 4.0625 
d) 0.5, 0.25, 0.125 


18. En el bucle 


ce 
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qué secuencia de números imprime. 
a) 1,12, 72, 86, 234 
b) 1,2, 6, 25, 100 
c) 1, 2, 6, 24, 120 
d) 1,2, 6, 26, 140 


19. En el bucle 


qué secuencia de números imprime. 
a) 5, 67, 456, 8769, 98356 
b) 1,2,3,4,5 
c) 1,2,3, 10, 20 


d) 0.5, 0.25, 0.125, 0.0625, 0.03125 


; 20. En el bucle 


qué secuencia de números imprime. 
.a)1,2,3,4,5 
b) 1,3,5,7,9 
CANAS 
10) oe SRT 


Le aconsejamos que compruebe sus respuestas con el ordenador. 
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9.5 BUCLES ANIDADOS 


Veamos otro ejemplo de utilización de un bucle. Se desea escribir la 
tabla de multiplicar, por ejemplo, la tabla del 5. 
El resultado a obtener es: 


5x0=0 

5x1=5 

5x2=10 
5x3=15 
5x4=20 
5x5=25 
5x6=30 
5x7=35 
5x8=40 
5x9=45 
5 x 10= 50 


El programa para ello sería: 


10 REM Tabla de multiplicar 
ZO FOR 1 = 0 TO 10 

30 a O lie E Ll AE 
40 NEXT 1 


3% 1 


Si deseamos obtener la tabla para otro número cualquiera, modifica- 
ríamos el programa añadiendo la línea: 


159 INFUT "NUMERO: ",N 
y modificando la 30: 
30 PRINT N3" ox "slg" = "5nx] 


El listado completo del programa será ahora: 


10 REM Tabla de multiplicar 
15 INPUT "NUMERO: ",N 
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20 FOR 1 = 0 TO 10 
30 PRINT ON" ox "pl" = "¿Nx1 
40 NEXT 1 


De esta forma podríamos obtener la tabla de multiplicar de cualquier 
número. 

Supongamos ahora que nos interesa la tabla de multiplicar de los nú- 
meros del O al 10. Podríamos obtenerlas ejecutando sucesivamente el pro- 
grama y dando cada vez el valor de N correspondiente, entre O y 10. Pero 
dado que sabemos los límites entre los que varía N, y que lo hace de 1 en 
1, podemos añadir un nuevo bucle, que nos gobierne esta variación de N. 
Nos interesaría algo así: 


FOR N =0T0O 10 


Escribir la tabla de multiplicar 
para el valor actual de N 


NEXT N 


El programa para escribir la tabla de multiplicar de N es el que tenemos 
escrito. Bastará ahora añadir dos líneas: 


15 FOR N = 0 TO 10 
30 NEXT ON 


El listado completo del programa quedará ahora: 


10 REM Tabla de multiplicar 
13 FOR N = 0 TO 10 


ZO FOR 1 =0T0 10 

E PRINT Ns" x "sI" = "¿Nx*I 
40 NEXT 1 

SO NEXT N 


Tal como se señala, tenemos un bucle «anidado» dentro de otro. 

El funcionamiento no varía respecto al que ya conocemos. Empieza la 
ejecución para el primer valor de N (0). Se ejecuta el bucle interior completo 
(para | de O a 10), tal como ya sabemos. Una vez finalizado este bucle, el 
control salta fuera del bucle interior, a la línea siguiente al mismo. Esta es 
la línea 50, que al ser la de fin del bucle exterior, transfiere el control de 
nuevo al principio del bucle (línea 15), con lo que N toma el siguiente valor 
(N=1), con lo que se ejecutará el bucle interior, y así sucesivamente hasta 
llegar a N=10. De esta forma obtenemos las diez tablas. Para obtenerlas 
escritas por separado, añadiremos una instrucción que nos borre la pantalla 
para cada nueva tabla. 
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El nivel de anidación de los 
bucles puede ser cualquiera 
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Así escribiremos: 


17 CLS 


Esto dejará la pantalla limpia y preparada para escribir la tabla si- 
guiente. 

Sin embargo, no acaban aquí las posibilidades. Supongamos que, ade- 
más, queremos repetir el proceso de escritura de las tablas de todos los 
números tres veces. Podremos ejecutar tres veces el programa que tene- 
mos, o bien añadir las líneas: 


HRS Y 4 TOS 
60 NEXT Y 


Tenemos ahora tres bucles anidados. El programa completo sería: 


10 REM Tabla de multiplicar 
12 FOR V = 1 70 3 
15 FOR N = 0 70 10 


1Z CES 

20 FOR 1 = 0 TO 10 
[so FRINT ON5" ox "slg" = ":Nx*] 
40 NEXT 1 

50 NEXT ON 


60 NEXT Y 


Así pues, repetimos tres veces el proceso de forma automática. 

Debe prestarse mucha atención a la correcta colocación de las ins- 
trucciones de fin de bucle, ya que no se puede cerrar un bucle más exterior 
hasta que no haya completado el más interior. 

Por eso observe que la línea 40 cierra el bucle que se inicia en la línea 
20, la línea 50 cierra el bucle que se inicia en la línea 15, y finalmente la 
línea 60 cierra el que inicia en la línea 12. 

El hecho que la instrucción NEXT lleve la variable de control del bucle 
es para establecer un mecanismo de comprobación interno del BASIC que 
sabe así qué bucle deseamos cerrar. 


9.6 BUCLES DE ESPERA 
Escribamos el programa: 


NEW 
10 FOR 1 = i TO 100 
ZO NEXT 1 


Cuando se repiten muchas 
veces instrucciones muy 
cortas el tiempo se hace 

apreciable 
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y ejecutémoslo. 

¿Qué es lo que observamos? 

En la pantalla no aparece nada. Sin embargo, desde el momento en 
que hemos escrito RUN, hasta que la máquina da de nuevo la indicación 
de que está preparada para recibir nuevas órdenes, transcurre un tiempo. 

Si cambiamos la línea 10 por: 


10 FOR 1 = 1 TO 1000 


y ejecutamos de nuevo el programa, observamos que el intervalo de tiempo 
transcurrido es mayor que en el caso anterior. 

¿A qué se debe esto? 

Observemos en primer lugar el programa que hemos escrito. Veremos 
que tenemos un bucle, que empieza en la línea 10 y termina en la 20, sin 
ninguna instrucción en su interior. ¿Por qué pues se entretiene la máquina 
cuando en realidad el bucle está vacío? 

La explicación la encontramos en la forma de funcionamiento interno 
de los bucles. 

Como ya hemos visto, en ta instrucción FOR se asigna el valor que le 
corresponda a la variable, y se va incrementando sucesivamente el valor 
de la misma, comprobando al mismo tiempo que ésta se encuentre entre 
los márgenes fijados en la propia instrucción. Por otra parte, la instrucción 
NEXT nos remite de nuevo a la instrucción FOR. 

Evidentemente, la máquina consume un tiempo en dar cada uno de 
estos pasos. Este tiempo es muy pequeño (prácticamente inapreciable), si 
ha de efectuarlo una sola vez, pero si lo hacemos repetir 100, 1000 veces, 
evidentemente multiplicamos el tiempo por 100, o por 1000... Este es el 
intervalo de espera que apreciamos entre el momento en que escribimos 
RUN, y el momento en que la máquina vuelve a responder. 

Estos bucles, que lo único que hacen es «entretener» a la máquina, 
se denominan bucles de espera, y tiene utilidades muy diversas. Pueden 
utilizarse por ejemplo en programas autoexplicativos. 

Estos programas incluyen la explicación del funcionamiento, es decir, 
dan las instrucciones para utilizarlos, al inicio de su ejecución, o durante la 
misma. 

Estas instrucciones aparecen generalmente escritas en pantalla du- 
rante un especio de tiempo más o menos largo, para que el usuario tenga 
tiempo de leerlas. 

Veamos un ejemplo de utilización de un bucle de espera para este 
caso. Escribamos el programa: 


NEW 

10 CLS5 

20 PRINT "... este mensaje” 
ZO ERINT "se autodestruira" 
40 ERINT "en $ segundoS. .." 
50 FOR 1 = 1 TO 100 

50 NEXT 1 

70 ELS 
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Ejecutando el programa, observaremos que el mensaje aparece en 
pantalla durante un tiempo, y es borrado automáticamente. Para ajustar 
exactamente el tiempo a 5 segundos, puede modificar la línea 50, varian- 
do el límite superior de la variable de control (100), por otros valores (150, 
200, ...) hasta que el mensaje permanezca exactamente 5 segundos en 
pantalla antes de desaparecer. 

Otro ejemplo de utilización de estos bucles de espera lo podemos ver 
si construimos un programa que simule un reloj. Este programa nos servirá 
también como ejemplo de utilización de bucles anidados. El programa para 
ello será: 


NEW 

LO FOR TS O TA O 

ZO FOR. Jo DO TODOS 

30 FOR K = 0 TO 59 

40 CLS 

50 ARIS A NS 
60 FOR E = 1.710 100 
7O NEAL La 

50 NEXT K 

30 NEXT J 

100 NEXT OZ 


Ejecutando el programa, veremos que aparece la hora completa, es- 
crita segundo a segundo, en la parte superior izquierda de la pantalla. Como 
en el caso anterior, ajuste el tiempo modificando de forma adecuada el valor 
final de la variable de control del bucle de espera. 


9.7 EL GOTO Y LOS BUCLES 


Una de las instrucciones que disponemos es el GOTO que nos permite 
saltar de un sitio a otro del programa. Por otra parte, como ya hemos com- 
probado, las instrucciones FOR y NEXT actúan de una manera coordinada 
pero son instrucciones distintas. Entre ellas podemos colocar muchísimas 
instrucciones. 

Por lo tanto, en principio podemos utilizar instrucciones GOTO, y con 
ellas saltarnos el mecanismo de funcionamiento del bucle. La utilización del 
GOTO permite entrar y salir dentro de los bucles a nuestro antojo. 

Sin embargo, si la utilización del GOTO para estos menesteres no está 
cuidadosamente preparada, esta utilización del GOTO nos puede llevar a 
desastres en el comportamiento del programa. Si, además, esto se hace a 
la ligera, la dificultad de encontrar la causa puede costarnos mucho tiempo, 
con el consecuente desánimo. 

En esta sección vamos a analizar cómo debe hacerse para utilizar el 
GOTO para modificar el mecanismo de las instrucciones FOR y NEXT. 


Procesos que pueden 
finalizar antes del tope 
máximo previsto 
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9.7.1 Salida de los bucles 


Consideremos, en primer lugar, la utilización del GOTO para la salida 
de los bucles. 

Como norma general, siempre es posible utilizar un GOTO para salir 
de un bucle sin peligro alguno de que el funcionamiento sea incorrecto. En 
otras palabras, nos podemos saltar una instrucción NEXT sin peligro. 

Diremos además que suele ser frecuente encontrar programas que uti- 
lizan esta manera de funcionar. 

¿Cuándo se debe utilizar este tipo de salida? Generalmente nos en- 
contramos que hay procesos que tienen un límite máximo, pero que si se 
da cierta condición se puede finalizar antes. 

Por ejemplo, cuando Ud. busca el nombre de un amigo en su agenda, 
empieza a repasar desde el primer nombre (quizá desde el primer nombre 
en la letra correspondiente de su índice). En el momento que encuentra el 
nombre, finaliza el proceso de búsqueda. De todas maneras finalizará la 
búsqueda si llega al final de la lista y ve que no tiene el nombre de su amigo 
en la agenda; en estos momentos quizá lo apuntará o hará cualquier otra 
acción. 

El mecanismo que nos interesa resaltar en el ejemplo es: se inicia un 
proceso repetitivo: buscar el nombre. Este proceso se repetirá como má- 
ximo la longitud de la lista de la agenda o se acabará antes, en el momento 
en que ha encontrado el nombre que buscaba. 

Veamos ahora un ejemplo con un programa. Considere que quiere rea- 
lizar un juego con el ordenador de tal manera que el jugador debe acertar 
un número que el ordenador ha memorizado en menos de diez jugadas. El 
programa es el siguiente: 


10 LET MN = 13 
ZO FOR I *= í TO 10 
30 FRINT "Jugada! "3113" eliga un numeros”; 
40 INPUT A 
50 IF. A=N THEN GOTO 100 
60 FRINT "Numero ecuivocado” 
70 NEXT 1 A 
80 ERINT "Lo siento no hna acertado el numero” 
30 GOTO 1000 
100 FRINT "Ha acertado el numero. Muy bien" 
1000 STOP 


El programa consiste en: 


1. El ordenador elige el número 13 que coloca en la variable N (línea 
10). En lecciones posteriores veremos cómo se puede escoger un número 
al azar. 


2. El programa entra en un bucle que se inicia en la línea 20 y acaba 
en la línea 70, este bucle se repetirá 10 veces que es el número de opor- 
tunidades que damos al jugador. El cuerpo del bucle consiste en informar 
al jugador de la jugada que está realizando y le pide un número. (Líneas 
30 y 40.) 
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La instrucción GOTO puede 


saltarse instrucciones NEXT 


40 


sin peligro 


3. La instrucción de la línea 50 es una decisión que indica que si el 
número se ha acertado, se sale fuera del bucle. En caso contrario seguirá 
en el cuerpo del bucle informando al jugador que el número es equivocado. 


4. Si se alcanza la jugada diez y el jugador no ha acertado el número, 
el bucle finaliza y se informa al jugador (línea 80) de que no ha conseguido 
el objetivo. 


5. Cuando nos salimos del bucle mediante el GOTO a la instrucción 
100, se informa al jugador que ha acertado el número. Teclee ahora el RUN 
y compruebe el funcionamiento del programa introduciendo en una primera 
fase números distintos a 13 para provocar la repetición de las 10 jugadas. 

En una segunda prueba teclee el trece en un momento determinado y 
compruebe que sale del bucle. 

Por lo tanto, siempre es posible saltarse la instrucción NEXT mediante 
un GOTO; de todas maneras, procure no abusar de esta construcción. Si 
hay demasiados saltos fuera de los bucles se producen dificultades para 
seguir el programa y puede generar un caos. En conclusión, sea prudente 
al realizar este tipo de construcciones que, aunque permitidas, debe res- 
tringirlas a las aplicaciones estrictamente necesarias. 


9.7.2 Entrada de los bucles 


Como norma general no es posible realizar saltos al interior de un 
bucle. 

La regla es que un GOTO no puede traspasar una instrucción FOR, si 
no traspasa también la correspondiente instrucción NEXT. 

El BASIC detecta un error cuando queremos realizar una operación de 
este tipo. El error se detecta al alcanzar la instrucción NEXT. Todos los 
BASIC suelen dar un mensaje como NEXT sin FOR o algo parecido. 

De acuerdo con lo que hemos dicho al principio del capítulo, es lógico 
el mensaje, pues la máquina detecta que deseamos cerrar un paréntesis 
que previamente no hemos abierto. 

Considere el programa que escribe 10 veces Hola, pero en el que 
se ha añadido una instrucción para entrar en el interior del FOR sin pasar 
por él. 


10 GOTO 30 

20 FOR I= 1 TO 10 

30 FRINT 1, "HOLA" 
40 NEXT: 1 

50 PFRINT "He acabado" 


Al ejecutarlo, la línea 10 nos transfiere el control a la instrucción 30 sin 
pasar antes por la instrucción 20 que es el FOR. 

Al llegar a la instrucción NEXT se producirá el error que dirá más o 
menos que ha encontrado un NEXT para el que no se ha abierto el FOR 
correspondiente. 


Es correcto traspasar un 
FOR si también se traspasa 
el NEXT correspondiente 
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En cambio no detectaremos error, porque no lo es, si traspasamos la 
estructura entera del FOR y el NEXT. Si modifica la instrucción 10 y la cam- 
bia a 


GOTO 30 


el programa escribirá que ha acabado sin mayor problemas pues nos he- 
mos saltado la estructura completa. 

Esta forma de realizar el salto se puede decir que incluso es frecuente. 
Típicamente en el FOR que hemos explicado aquí cuando en el bucle cre- 
ciente el valor final es menor que el valor inicial y a la inversa en el decre- 
ciente el bucle se ejecuta una vez por lo menos. Sin embargo, nuestro de- 
seo es que no lo realice ninguna vez, entonces no tenemos más remedio 
que colocar un |F previo para saltarnos la estructura completa si el bucle 
no debe ejecutarse ninguna vez. Tenemos el programa que calcula la tabla 
de cuadrados del apartado 2.4. 


S INFUT "ERIMER VALOR", A 

7 INSUT "ULTIMO VAL.OR",U 
9. 1F. (£. > 0) THEN GOTO 40 
1ó FOR 1 = E TOUu 


20 FRINT 1;" al cuadrado es "21102 
30 NEXT 1 : 
40 GTO. 3 


Al programa se le ha añadido la instrucción 9 que es una instrucción 
IF que se salta el bucle entero si el valor inicial es mayor que el valor final. 

Seguramente se preguntará por qué no lo envía directamente a la ins- 
trucción 5. Ciertamente tiene razón, pero se ha utilizado como ejemplo sen- 
cillo, y en otros casos las instrucciones que siguen al bucle pueden tener 
sentido realizarlas aunque el valor inicial sea mayor que el final. 

En las máquinas que no tienen este comportamiento el IF noes ne- 
cesario en este caso, pero la regla de que se puede traspasar un FOR y 
un NEXT con un GOTO es aún válida. 

Hay ejemplos más complicados de utilización correcta de la entrada 
dentro de un bucle, pero en cualquier caso son desaconsejables. 

Considere un programa para escribir en dos columnas. Para hacerlo 
más sencillo escribiremos el mismo texto en las dos columnas. 

El proceso de escritura es un proceso repetitivo, pero que debe hacer 
acciones distintas cuando está en un valor de la variable de control par o 
impar. Para tener en cuenta esta diferencia utilizaremos una variable lógica, 
de tal manera que vaya tomando los valores verdadero y falso, en concor- 
dancia con la escritura a la derecha y a la izquierda. La variable lógica debe 
responder la pregunta ¿debo escribir a la derecha? 

Una versión posible es la siguiente: 


10 LET Th" RARA 
20 LETR=>=0 
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30 FOR 1 = 1 TO 10 

40 GOTO 500 

50 LET R= NOT OR 

60 NEXT 1 

70 STOR : 

500 1F (R) THEN FRINT T$ 
510 1F (NOT R)> THEN PRINT T8, 
520 GOTO 50 ! 


Las características del programa son: 


1. La variable T$ es el texto a imprimir y contiene 7 asteriscos que se 
asignan en la línea 10. 


2. La variable R es la variable lógica que indica si quiero imprimir a la 
derecha. Se inicia en la línea 20 y se coloca a falso pues se comienza la 
impresión a la izquierda. 


3. El bucle comprendido entre las instrucciones 30 y 60 es el proce- 
so repetitivo de escritura de 10 veces el texto, y cuya variable de control 
es la |. 


4. El cuerpo del bucle consiste en una instrucción de salida del bucle, 
la línea 40, que nos transfiere el control a la línea 500. Naturalmente la 
salida del bucle es totalmente permitida porque sólo atraviesa una instruc- 
ción NEXT. 


5. La línea 50 es la instrucción que va cambiando el valor de la variable 
lógica de derecha a izquierda, cambiando el valor de verdadero a falso su- 
cesivamente. 


6. La línea 70 finaliza el programa. 


7. La línea 500 nos escribe el caso de que sea a la derecha y la línea 
510 nos escribe el caso de la izquierda. Observe que sólo se puede ejecutar 
una de las instrucciones 500 ó 510 pues el valor de la variable lógica y el 
de su negación no pueden ser verdaderos simultáneamente. También hay 
que notar que las dos instrucciones PRINT difieren ligeramente. Por eso 
hay que hacerlas separadas. En el caso de la escritura de la izquierda, línea 
510, el PRINT acaba con una coma para dejar el cursor en la parte izquierda 
de la pantalla, mientras el PRINT de la derecha, línea 500, no lleva ningún 
signo de puntuación para que escriba en la línea siguiente. 


8. La línea 520 transfiere el programa otra vez al interior del bucle. Esta 
es la instrucción que parece violar la regla de que no se puede entrar en 
el interior de un bucle. 


Ejecutaremos el programa en primer lugar, antes de analizar por qué 
la instrucción 520 es correcta. 

Verá que cuando teclea el RUN el programa transcurre según los pla- 
nes previstos a pesar de que la instrucción 520 no debe estar permitida. 

La razón de que no sea incorrecta la instrucción 520 es que de hecho 
volvemos a entrar en un bucle que se ha inicializado correctamente con la 


Es posible salir y volver a 
entrar en un bucle 
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instrucción FOR, después nos hemos salido (línea 40) y hemos vuelto a 
entrar en la línea 50. 

Por lo tanto, no se cumple el supuesto de qué intentamos pasar por 
un NEXT (cerrar el paréntesis) sin haber pasado previamente por un FOR 
(abrir el paréntesis). 

Ciertamente no es una práctica recomendable utilizar este tipo de 
transferencia, pero el mecanismo está permitido si se planifica cuidadosa- 
mente, ya que no viola la regla de atravesar un FOR. 

En nuestra opinión es un programa mucho más claro el siguiente: 


10 LET OTE" 

ZO LETR=0 

30:FBR: hos 40 mT0 109 

40 IFR) THEN FRINT TS. 

50 IF (NOT R) THEN PRINT T8, 
60 LET R = NOT R 

70 NEXT 1 


También es cierto que este programa es muy sencillo, en programas 
más complicados este modo de programar puede estar justificado. Tanto 
es así, que en el capítulo 11, en el tercer tomo, estudiaremos una instrucción 
que permite realizar este tipo de transferencias de una manera mucho más 
elegante, clara y efectiva. 

Obviamente todas estas reglas deben cumplirse también si los bucles 
están anidados. En estos casos es mucho más complicado analizar todas 
las posibilidades. Sin embargo, las normas deben cumplirse para cada uno 
de los bucles, estén anidados o no. En otras palabras, el anidamiento sólo 
nos multiplica el número de bucles a controlar, pero no añade ninguna regla 
nueva respecto a las que hemos visto. 


9.8 POSIBILIDADES DE LOS BUCLES FOR/NEXT 


La utilización de las instrucciones FOR y NEXT para el control de bu- 
cles, nos ofrece, como ya hemos visto, unas amplias posibilidades. Sin em- 
bargo, debe ponerse atención para utilizarlos correctamente. 

Vamos a repasar brevemente las posibilidades y limitaciones que 
ofrece la utilización de estas instrucciones. 

La forma general de escribir estos bucles, es, como ya hemos visto, 
mediante dos instrucciones: la que inicia el bucle, 


FOR vc = exi TO exf STEP exp 


En la que: 


vc, se refiere a la variable de control. 

exi, se refiere a una expresión en BASIC que da el valor inicial. 
exf, se refiere a la expresión que da el valor final. 

exp, se refiere a la expresión que da el paso o escalón. 
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No hay que modificar la 
variable de control 


Y la que lo finaliza 


NEXT variable de control 


9.8.1 Propiedades generales 


1. Los valores inicial, final y el incremento pueden ser números, varia- 
bles, o expresiones, siempre que éstas sean correctas en BASIC. 


2. Los bucles pueden ser crecientes o decrecientes. Para escribir un 
bucle creciente se deberá tener el valor inicial inferior al valor final, y el 
incremento ha de ser positivo. Para escribir un bucle decreciente se debe 
tener el valor inicial superior al final, y el incremento debe ser negativo. 


3. Dentro de un bucle pueden abrirse otros bucles, es decir, se pueden 
tener bucles «anidados». 


4. Es posible atravesar un NEXT con una instrucción GOTO. 


5. No se puede entrar en el interior de un bucle mediante una instruc- 
ción GOTO. 


6. Se puede atravesar con un GOTO un FOR y un NEXT a la vez. 


7. Se puede salir del interior de un bucle y posteriormente entrar en 
este mismo bucle. 


Los bucles FOR/NEXT ofrecen muchas facilidades, pero debe ponerse 
mucha atención al utilizarlos, para que el bucle haga exactamente lo que 
deseamos. 


9.8.2 Utilización peligrosa del bucle 


Vamos a exponer una serie de cuestiones que no son errores, es decir, 
no están prohibidas, pero son desaconsejables, pues pueden inducir a erro- 
res en el programa, y son difíciles de detectar. 


1. La variable de control no debe modificarse a lo largo del cuerpo del 
bucle. 


La variable de control puede ser utilizada en el cuerpo del bucle en 
cualquier sentencia de BASIC. Entre las sentencias está la asignación de 
la variable de control a otro valor. 

Veamos a continuación dos ejemplos de esta utilización que sin ser 
incorrecta puede traer problemas. 


a) Consideremos el programa siguiente: 


10 FOR 1 = 1 TOS 
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ZO E E 
30 PRINT 1 
40 NEXT 1 


La línea 20 utiliza una instrucción de asignación que modifica la varia- 
ble de control |, restándole una unidad cada vez. 

Vamos a seguir el programa paso a paso. 

La instrucción 10 es el comienzo de un bucle. En ella se asigna el valor 
inicial a la variable de control del mismo. Por tanto: 


| =1 


En la instrucción siguiente —línea 20— se realiza una operación sobre 
la variable de control, que consiste en restarle 1. Por tanto: 


I=0 


Llegamos ahora al final del bucle, en la instrucción 40 se le suma la 
unidad a la variable de control. Por tanto: 


|=1 


y el control se transfiere a la línea 20 pues no se cumple que | sea mayor 
que 5. Al pasar de nuevo por la línea 20 se le resta una unidad; por con- 
siguiente, | vale de nuevo 0 y es el valor que imprime en el PRINT, al llegar 
a la línea 40 se incrementará en una unidad y por consiguiente valdrá 1, y 
así sucesivamente, sin posibilidad ninguna de finalización del bucle. 

/ se moverá alternativamente entre O y 1 sin alcanzar nunca el valor 
final del bucle. De esta forma, éste se seguirá ejecutando, hasta que for- 
cemos la finalización con la tecla de interrupción. 

La utilización de la asignación para variar la variable de control nos ha 
llevado a un bucle sin fin. Debido a que en el interior del bucle había un 
PRINT nos hemos enterado de que algo equivocado sucedía, pero si no 
hay ningún PRINT la máquina se queda aparentemente sin hacer nada. 
Está en un bucle de espera infinito. Compruebe quitando la línea 30 cuál 
es el estado de la máquina en este caso. 


b) Vamos a mostrar que esto se puede utilizar para un efecto práctico 
deseado. Consideremos el caso de querer escribir las potencias de dos (2, 
4, 9...). Cada número consiste en el anterior multiplicando por dos, hasta 
el valor que sobrepase el 100. 


Una posible versión de este programa puede ser: 
10 FOR l= 2 TO 100 
ZO LET Il = (I-1)x2 


30 -FRINT 1 
40 NEXT 1 
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En primer lugar ejecútelo y observe que obtiene la secuencia de 2, 4, 
8, 16, 32, 64, 128. 

¿Por qué? 

El truco radica en la instrucción 20, que vamos a comentar. En la pri- 
mera vuelta la | empieza en 2, al restarle una unidad y multiplicarlo por 2 
nos queda 2. 

Imprimimos este valor. 

A continuación en el NEXT, incrementamos una unidad la |, es de- 
cir ahora valdrá tres y como no supera al 100, ejecutamos de nuevo la 
línea 20. 

En ella restamos una unidad a |, obtenemos 2, y la multiplicamos por 
dos, con lo que se obtiene 4. Imprimimos el valor. 

Llegamos de nuevo al NEXT, incrementamos el valor en 1, ahora | vale 
5, como no supera a 100 ejecutamos de nuevo la instrucción 20. 

En ella disminuimos en 1 la |, vuelve a valer 4 y la multiplicamos por 
dos, con lo que se obtiene 8. 

El proceso se repite sucesivamente hasta llegar a un valor de | superior 
a 100 que cuando llegue al NEXT saldrá del bucle. 

Efectivamente, después de este análisis cuidadoso vemos que el pro- 
grama está bien planificado para ejercer su función. 

Sin embargo, esta manera de programar es sumamente peligrosa. En 
primer lugar porque al cabo de un tiempo, nos va a costar mucho entender 
lo que hace el bucle. En segundo lugar, porque un pequeño despiste puede 
llevarnos fácilmente a un bucle sin fin. 

En efecto, cambie inocentemente la instrucción del FOR y en lugar de 
empezar en 2 empiece en uno, es decir, 


10 FOR 1 = 1 TO 10 


cae inmediatamente en un bucle sin fin. Observe que ahora en el primer 
valor de la instrucción 20, obtiene un valor de cero, ya que uno menos uno 
da cero que multiplicado por dos continúa dando cero. 

Al llegar al NEXT incrementa la variable en 1, dará por lo tanto 1, e irá 
a ejectuar otra vez 20 con el mismo valor de antes, obtendrá un valor de 
cero y el bucle no se termina jamás. 

Es mucho mejor utilizar un programa que no utilice un FOR en este 
tipo de cálculos, por ejemplo, 


40 18 (1 ( 100) THEN GOTO 20 


De hecho este esquema es muy parecido a un bucle, pero en el que 
nosotros controlamos todas las fases mediante instrucciones elementales. 


No debe utilizar los valores 
de | en el cálculo del valor 
inicial, final y paso 
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2. No debe utilizarse para calcular el valor inicial, ni el final, ni el in- 
cremento la variable que se utiliza para control del bucle. 
Veamos tres ejemplos: 


a) Utilización de la variable de control para calcular el valor inicial, 
como en: 


EOR= Isa p TO. 10 


de hecho, la variable de control puede ser cualquier variable del programa; 
por lo tanto, nos puede convenir utilizar el mismo nombre de la variable de 
control que una variable del programa. Entonces lo que hace es iniciar el 
bucle con el valor que previamente tenía el programa. 

Sin embargo, después de salir del bucle esta variable ha cambiado de 
valor según las vueltas que ha dado. Esto puede ser un inconveniente. 

Una buena política es escoger las variables que van dentro de los bu- 
cles con unos nombres típicos, frecuentemente son l, J, K, etc., y sólo uti- 
lizarlas como variables de control del bucle. De esta manera, no alterare- 
mos inadvertidamente otras variables del programa. 


b) Utilizar la propia variable para el cálculo del valor final. 
Como en: 
FOR 1 = 1 TO 1*2z 


Esta situación sí que es verdaderamente absurda, pues es totalmente 
equivalente a 


FOR 1 =. 1 TO 2 


ya que en el momento de calcular el valor final la | vale 1. 

Su única justificación sería que el valor inicial fuera una expresión muy 
complicada, con lo que se evitaría el cálculo dos veces. 

A pesar de esta justificación, no es nada recomendable su uso, es me- 
jor utilizar una variable intermedia como en el caso 


FOR 1 = A TO AXzZ 


el resultado es equivalente pero mucho más claro. 
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Debe comprobarse que el 
paso no tiene el valor cero 
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No es fácil decir si en todos los BASIC, el cálculo del valor final se hace 
una sola vez o se recalcula toda la expresión cada vez que se hace la 
pregunta. En este segundo caso el valor final depende del número de vuel- 
tas realizado. En el capítulo de prácticas encontrará el funcionamiento de- 
tallado en estos casos. 


c) Hacer intervenir la variable de control en el cálculo del paso. 


FOR 1 = 1 TO 10 STER 1+1 


Los.comentarios son idénticos a los expresados en el caso anterior. 


3. El valor del incremento debe ser distinto de cero, de lo contrario, 
generamos bucles sin final, tal como hemos comprobado anteriormente. Si 
el valor del STEP es cero, la variable de control tomará el valor inicial, al 
sumarle el incremento nulo no variará, con lo que nunca podrá alcanzar el 
valor máximo, de forma que no podremos salir del bucle. El programa se- 
guirá dando vueltas hasta que lo detengamos mediante la tecla de inte- 
rrupción. 

Es difícil que coloquemos un valor cero en el paso, cuando colocamos 
un valor. 

Pero, como ya sabe en el cálculo del paso es posible colocar una ex- 
presión o una variable, cuyo valor puede ser nulo. Caemos ¡nadvertida- 
mente en un bucle sin fin. 

Es muy prudente calcular la expresión antes y comprobar que no nos 
dé realmente cero, que nos lleva a un bucle sin fin. 


RESUMEN 


En el interior de un bucle es posible abrir otro bucle y cerrarlo 
antes de cerrar el más exterior. 

A este proceso de meter bucles dentro de otros bucles se de- 
nomina anidamiento, y la relación que se establece entre los dos bu- 
cles, es de bucles anidados. 

El BASIC utiliza el valor de la variable en el NEXT como un me- 
canismo de comprobación adicional para averiguar las intenciones 
que tiene el programador al utilizarla como cierre de un FOR. 

Los bucles pueden utilizarse también para el control del tiempo 
del ordenador. Cuando se repite un bucle que no contiene ninguna 
instrucción en su cuerpo el tiempo puede hacerse grande colocando 
valores finales elevados. Muchas instrucciones muy cortas dan un 
tiempo apreciable. 

Programar un reloj es un ejemplo de utilización de bucles de es- 
pera. 
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Mediante la instrucción GOTO podemos entrar y salir del bucle. 
Esto provoca inconvenientes debido a la coordinación tan intensa que 
hay entre el FOR y el NEXT. 

Es posible atravesar con un GOTO una instrucción NEXT, sin pe- 
ligro de error. 

Se aplica en procesos en que, aparte de un tope máximo de re- 
peticiones, el proceso repetitivo puede finalizar por otras causas, 

Por otra parte, no es posible para una instrucción GOTO saltarse 
un FOR, es decir, meterse en el interior de un bucle. 

Una instrucción GOTO puede saltarse un FOR si además se salta 
el NEXT correspondiente. 

Es posible salir del interior de un bucle y volver a entrar, pues no 
violamos la regla de un salto de un FOR sin su NEXT. 

Las propiedades generales de los bucles son: 


1. En el cálculo de valores inicial, final y paso pueden utilizarse 
expresiones. 


. Los bucles pueden ser crecientes o decrecientes. 
. Dentro de un bucle puede abrirse otro bucle. 

. Un GOTO puede atravesar un NEXT. 

. Un GOTO no puede atravesar un FOR solo. 

. Un GOTO puede atravesar un FOR y su NEXT. 


. Es posible salir y entrar en el interior del mismo bucle. 


NO 0n >=. QQ NN 


Hay situaciones que, sin ser error, son muy peligrosas en cuanto 
a claridad del programa. 
Estas situaciones se deben evitar y son las siguientes: 


1. Modificar la variable de control en el interior de un bucle. 


2. Utilizar la variable de control en el cálculo de los valores inicial, 
final y paso. 


3. Utilizar un valor de cero en el paso. 


EJERCICIOS DE AUTOCOMPROBACION 
Completar las frases siguientes: 


21. Dentro de un bucle es posible abrir Y .....ooooocicocccinci...o. otro 
bucle. 


22. El cuerpo de un bucle puede Carecer de .oocccciociccicioicccccocooo 
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23. 


24. 


25. 


26. 


27. 


28. 


29. 


30. 


31. 


Un bucle sin instrucciones se utiliza para hacer ............................ 
pod el ordenador. 


No es aconsejable modificar el valor de la .................................... en 
el cuerpo de un bucle. 


La variable de control puede intervenir en las ................................ 
.... de cálculo de los valores inicial, final y paso. 


Es posible salir y VOÍVETFA .ooooooccicoociciciococoo en el cuerpo de un 
bucle mediante las instrucciones GOTO. 


Si el paso de un bucle Vale ...ococoocococic......... no salimos jamás 
del mismo. 
La instrucción NEXT lleva la variable de control para comprobar 


las intenciones del programador respecto a qué bucle desea .... 

A continuación le sugerimos 10 situaciones: 

31.1 Un GOTO atraviesa un NEXT. 

31.2 Un GOTO atraviesa un FOR. 

31.3 Se sale y entra en el bucle. 

31.4 Un GOTO atraviesa un FOR y un NEXT. 

31.5 Se modifica la variable de control en el interior del bucle. 

31.6 Se utiliza el valor del paso que depende de la variable de 
control. 


31.7 Se utiliza el valor final que depende de la variable de control. 


31.8 Es un bucle sin fin. 
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31.9 Es un bucle correctamente formado, en el sentido de no te- 
ner errores y no utilizar construcciones no recomendables. 


31.10 La anidación de los bucles es incorrecta. 


Seguidamente le ofrecemos 10 programas que presentan alguna 
de las 10 características anteriores. Ud. debe realizar la asociación 
entre el programa y el concepto anteriormente. 


Advertencia: Hay casos en que puede haber conflicto, así por 
ejemplo, el concepto, un GOTO atraviesa un FOR y un NEXT, tiene 
un bucle correcto que podría asociarse con el concepto 31.9, de bucle 


correcto. 


Le aseguramos que el bucle correcto no tiene ninguna de las 
otras características mencionadas. 


a) 
10 
20 
30 


40 


b) 
10 
20 
30 
40 
50 
60 


c) 


a) 
10 
20 
30 


40 


LET I=231LET J=100 
FOR l= 1 


TO 35%*I STEP 


1+.J 


LET A 
NEXT 1 


INFUT A 
17 0% THEN GOTO 40 
FOR l= A TO A+7 

LET A IF3 

FRINT OA 

NEXT 1 


LET J=1 

FOR 1 JTO6 
LET J=JxI 
NEXT 1 


10 
20 
30 
40 


== 


LET I=6 

FOR I=1 TO 10 
ERINT 1 
MEXT 1 


STEP 


J/10 


Ep 
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10.0 OBJETIVOS 


El capítulo anterior nos ha introducido en los bucles. Estos nos per- 
miten programar acciones repetitivas con cierta comodidad. En este capí- 
tulo estudiaremos la manera de extender el tratamiento a los datos. 

Muchas veces los problemas son conceptualmente idénticos pero se 
deben realizar sobre datos distintos. Es necesario, por lo tanto, disponer de 
una manera de organizar grandes cantidades de información con una 
misma lógica y acceder de una manera ordenada a cada uno de los com- 
ponentes. 

Los ordenadores demuestran su potencia cuando hay que procesar un 
gran número de datos. En este capítulo estudiaremos el caso de que estos 
datos sean iguales. Esto puede parecer una limitación importante, pero en 
realidad no lo es en absoluto y la mayoría de problemas pueden reducirse 
a versiones en que la estructura de los datos sean iguales. 

La caracteristica más sobresaliente de la manipulación de estos datos 
es que hay que realizar una previsión de la memoria que debemos reservar 
para las necesidades de nuestro problema. 

Hay que informar de esta previsión al ordenador mediante la instruc- 
ción DIM para que haga efectiva la reserva de memoria. 

Es importante en este punto que entienda bien lo que significa la ins- 
trucción DIM. Debe aprender cuál es el significado de conjunto dimensio- 
nado y cuántas son las dimensiones que va a utilizar en la resolución de 
un problema. Enseguida aprenderá lo que quiere decir conjunto dimen- 
sionado. 

Una vez reservado el espacio de memoria, es necesario acceder a 
cada uno de los elementos. El método de acceso se hace mediante subín- 
dice. El concepto de subíndice es muy importante para manejar correcta- 
mente estas estructuras. También lo veremos enseguida. 

Ponga especial atención en distinguir cuál es el subíndice de un ele- 
mento y cuál es el contenido del elemento. 

La experiencia indica que es un error frecuente confundir la posición 
con el contenido. Las primeras veces que lo utilice haga un acto de reflexión 
consciente para delimitar de qué parte se está hablando, si de posición o 
contenido.Con el tiempo verá que esta distinción es muy sencilla. 

Una vez establecidos estos conceptos básicos este capítulo le ayudará 
a comprender su significado mediante abundantes ejemplos. 

Estos procedimientos fundamentales demuestran más la técnica que 
la potencia de los conjuntos dimensionados. Sin embargo, esta técnica es 
imprescindible para poder realizar programas de utilidad. 

Estudie con detenimiento cada uno de los problemas, la dificultad de 
los problemas no radica en lo que hacen sino en las ideas que utilizan. 
Deben poder utilizar estos recursos cuando se plantee un problema nuevo. 

Los conjuntos dimensionados tampoco son estrictamente necesarios 
para la programación, pero es una comodidad que se convierte en nece- 
sidad cuando hay que procesar mucha información. 


10.1 INTRODUCCION 


Hasta el momento hemos manejado variables simples, es decir, que 
contenían un único dato, que podía ser textual o numérico. Este tipo de 


Todos los elementos de los 
conjuntos deben ser del 
mismo tipo 
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variables es suficiente si la cantidad de información a procesar es reducida. 
El problema surge cuando hay que manipular simultáneamente una gran 
cantidad de datos. En este caso tendremos muchísimas variables y se hará 
difícil recordar qué dato tiene cada una. Incluso, si hay muchos datos y las 
normas de nomenclatura de las variables son muy restrictivas puede ocurrir 
que no haya suficientes combinaciones de letras para dar nombre a todas 
ellas. 

Por otra parte, el número de instrucciones del programa crece des- 
mesuradamente. Así, por ejemplo, si hay que escribir los resultados habrá 
que utilizar instrucciones PRINT para todas las variables. Lo mismo ocurre 
con las instrucciones LET, INPUT, etc. 


10.1.1 Listas y tablas 


Para solucionar este problema hay que utilizar un tipo nuevo de varia- 
bles que permitan almacenar varios datos a la vez. Estas variables se de- 
nominan conjuntos dimensionados. La palabra conjunto se debe a que cada 
variable memoriza un conjunto de datos. La palabra dimensionado se utiliza 
por analogía con las tres dimensiones del espacio (largo, ancho y alto). 
Vamos a ver ahora los principales conjuntos dimensionados que utilizare- 
mos, como son las listas y las tablas. 

Una lista de datos está formada por una relación de elementos suce- 
sivos. Dicho de otro modo, es un conjunto de datos de una dimensión. Por 
ejemplo, las notas que saca un alumno en cada una de las asignaturas. 

En una tabla, sin embargo, los datos están dispuestos en filas y co- 
lumnas. Por tanto, se trata de un conjunto de dos dimensiones. Por ejemplo, 
las notas que sacan todos los alumnos de una clase en cada una de las 
asignaturas, donde una de las dimensiones estaría formada por los alumnos 
y la otra por las asignaturas. 

Existen también tablas con tres entradas y constituyen, en consecuen- 
cia, un conjunto de tres dimensiones. Lógicamente no se pueden repre- 
sentar tablas tridimensionales sobre papel. En su lugar se emplean pro- 
cedimientos tales como conjuntos de tablas, conjuntos de columnas, etc. 
Es posible incluso imaginar tablas de cuatro o más dimensiones, aunque 
sólo se pueden representar subconjuntos de ellas. 

El ordenador no tiene ninguna dificultad en emplear conjuntos de varias 
dimensiones, aunque en la práctica, las listas y tablas son, con mucho, las 
más utilizadas. 


10.1.2 Homogeneidad 


Los conjuntos dimensionados pueden contener datos numéricos o tex- 
tuales. Sin embargo debe cumplirse una condición: todos los elementos del 
conjunto deben ser del mismo tipo (conjunto homogéneo). Si el conjunto es 
numérico, todos los elementos serán numéricos. Si el conjunto es textual 
todos los elementos serán textuales. 

Hay que recalcar el hecho de que cada elemento del conjunto es equi- 
valente a una variable simple de las que habíamos estudiado hasta ahora. 
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que las variables simples 
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Una lista numérica se denomina también vector y una tabla numérica 
se denomina matriz. Estos nombres provienen del Algebra matricial, que 
son una parte de las Matemáticas. 

Nosotros trabajamos en general con listas y tablas, pero se pueden 
emplear directamente los conjuntos dimensionados para el cálculo ma- 
tricial. 


10.1.3 Nomenclatura 


En principio se siguen las mismas normas de nomenclatura que para 
las variables simples, incluyendo el símbolo dólar ($) para los conjuntos que 
contengan textos. 


Sin embargo, algunas versiones del BASIC restringen el nombre de los 
conjuntos a una sola letra. En el capítulo de «Prácticas con el microorde- 
nador» verá enseguida las reglas que se aplican en su ordenador. 


<q 


10.2 RESERVA DE MEMORIA 


Antes de utilizar los conjuntos o variables dimensionadas hay que es- 
tablecer sus dimensiones a fin de que el BASIC efectúe la correspondiente 
reserva de memoria. Este comportamiento es distinto al de las variables 
simples. En efecto, la instrucción 


LET A=10 


incluye dos operaciones. Como ya vimos en las primeras lecciones: En pri- 
mer lugar el BASIC comprueba si ya existe la variable A. Si no es así, la 
crea automáticamente y le asigna una porción de la memoria principal del 
ordenador. En segundo lugar se almacena el número 10 en A. 

La creación y asignación automática de la memoria era posible puesto 
que sólo se reservaba espacio para un único dato. Cuando se trata de al- 
macenar una lista (o tabla), el BASIC necesita saber cuántos elementos 
componen dicho conjunto, puesto que debe reservar espacio para cada 
uno. Esta es la razón por la cual hay que establecer las dimensiones de 
una lista o tabla antes de usarla. Además, en general, es necesario que 
cada dato contenga un valor diferente. 


10.2.1 Instrucción DIM 


Para realizar la operación de reserva de memoria se utiliza la instruc- 
ción DIM. La palabra DIM es una abreviatura de dimensión. Con esta ins- 
trucción se establece cuántas dimensiones tiene una variable y cuántos ele- 
mentos tiene en cada dimensión. De esta forma el BASIC sabe cuánta me- 
moria debe reservar para dicha variable. 


La reserva de memoria 
se hace mediante la 
instrucción DIM 


Figura 1. Representación visual 
de los conjuntos dimensionados. 
1a) Conjunto de una dimensión 
o lista. 1b) Conjunto de dos di- 
mensiones. 1c) Conjunto de tres 
dimensiones. 
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La forma general de esta instrucción consiste en escribir la palabra DIM 
y, a continuación, el nombre de la variable, la cual llevará entre paréntesis 
la dimensión o lista de dimensiones. 

Por ejemplo: 


DIM Aí4) 
Dim E(3,4) 
DIM T(3,3,3) 


En la figura 1 se muestra una representación visual de los tres ejemplos 
indicados de variables dimensionadas. En el primer ejemplo (Fig. 1a) la 
variable A será una lista de cuatro elementos. Por tanto se reservan cuatro 
celdas o casillas. En el segundo ejemplo (Fig. 1b), la variable B es una tabla 
con tres filas y cuatro columnas. Por tanto, el total de elementos es 
3 x 4 =12. Finalmente, en el tercer ejemplo (Fig. 1c), la variable T se defi- 
ne como un conjunto de tres dimensiones, cada una de las cuales tiene 
tres elementos. En total, por tanto, la variable T tiene 3 x 3 x 3 = 27 ele- 
mentos. 


10.2.2 Variables textuales 

En los tres primeros ejemplos del apartado anterior las variables eran 
de tipo numérico. Se pueden emplear también los conjuntos dimensionados 
para almacenar datos de tipo textual. Para ello utilizaremos el mismo pro- 


cedimiento que utilizamos para las variables simples, es decir, colocaremos 
el símbolo dólar ($) al final del nombre de la variable. Por ejemplo: 


DIM N$(20) 
DIM T$(30,:2) 


1b 1c 
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En el primer caso, la variable N$ es una lista de 20 textos. En el se- 
gundo caso, la variable T$ es una tabla de 30 filas y 2 columnas. 

Todos los elementos de una variable dimensionada de tipo textual son 
a su vez textos. En general, cada uno de los elementos puede contener un 
número de letras (o símbolos) distinto de los demás elementos de la varia- 
ble. Este número, en la mayoría de variantes del BASIC es inferor a 255. 


10.2.3 Filas y columnas 


Cuando se emplean tablas de datos (conjuntos de dos dimensiones) 
nos podríamos preguntar qué convenio utiliza el ordenador para las filas y 
las columnas. En otras palabras, la pregunta es si la primera dimensión 
equivale a las filas y la segunda a las columnas o viceversa. La respuesta 
es un poco sorprendente: al ordenador. le es totalmente indiferente el con- 
venio que utilicemos. Lo único que hay que tener en cuenta es mantener 
el mismo criterio a lo largo del programa. Cuando se empieza un programa 
que utiliza conjuntos dimensionados se elige un convenio, no importa cuál, 
sobre las filas y columnas (si el conjunto tiene más de dos dimensiones, el 
convenio debe abarcarlas todas). En el resto del programa debemos man- 
tener el mismo criterio a fin de que los resultados sean coherentes. 

Si esta aparente equivalencia entre filas y columnas nos parece difícil 
de entender, hay que recordar que el concepto de filas y columnas depende 
de la orientación con que miremos la tabla. Si nos imaginamos una tabla 
escrita sobre un papel, diremos que las líneas verticales son las columnas 
y las líneas horizontales son las filas. Sin embargo, si ahora giramos el 
papel 90 grados, las filas pasan a ser columnas y viceversa. A pesar de 
este cambio de orientación, los elementos son los mismos y, lo que es más 
importante, la situación relativa entre ellos no ha cambiado. Este hecho 
pone de manifiesto que el concepto de fila y columna tiene una importancia 
secundaria. 


10.2.4 Extensiones de la instrucción DIM 

En la mayor parte de las variantes del BASIC, la instrucción DIM tiene, 
además de las especificaciones vistas anteriormente, algunas ampliacio- 
nes. En primer lugar, para indicar las dimensiones se pueden emplear va- 


riables previamente definidas en lugar de números concretos. Por ejemplo, 
la instrucción 


10 Dim AGO) 


sería equivalente a 


10 LET N=30 
20 DIM AN) 
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Como veremos más adelante, este procedimiento tiene sus ventajas 
para manejar listas o tablas de longitud determinada. 

En segundo lugar, en una sola instrucción DIM se pueden establecer 
las dimensiones de muchas variables. Así, por ejemplo, las dos instruc- 
ciones 


10 DiM NM$(10) 
20 Dim T (25,2) 


se podrían resumir en una sola, quedando 


10 DIM N$(10),T7(25, 2) 


10.2.5 Empleo de la instrucción DIM 


Como ya hemos mencionado anteriormente, la instrucción DIM sirve 
para que el BASIC reserve memoria donde almacenar los conjuntos di- 
mensionados. Por esta razón, la instrucción DIM debe usarse siempre antes 
de manejar cualquiera de los elementos del conjunto. 

Aunque la instrucción DIM puede estar situada en cualquier lugar del 
programa (pero precediendo siempre a las instrucciones que utilizan los 
elementos del conjunto), se suelen colocar agrupadas al principio del pro- 
grama. De este modo, el programador sabe enseguida qué conjuntos utiliza 
y qué dimensiones tienen. 

Una vez establecidas las dimensiones de una lista o tabla no se pueden 
variar; es decir, no se puede redimensionar durante la ejecución de un pro- 
grama. Si el BASIC encuentra una instrucción DIM que afecta a un conjunto 
definido en otra instrucción DIM, se produce un error. 

Conviene recalcar que la imposibilidad de cambiar de dimensión se 
refiere sólo durante la ejecución del programa. Antes de utilizar el comando 
RUN se pueden cambiar las dimensiones sin ningún problema. Lo que no 
está permitido es utilizar dos veces la instrucción DIM para la misma va- 
riable. 

Finalmente hay que señalar que el tamaño máximo de las listas y tablas 
tiene un límite distinto según el modelo de ordenador. La instrucción DIM 
reserva espacio en la memoria principal del ordenador. La cantidad de me- 
moria disponible nos indicará el tamaño de los conjuntos dimensionados 
que podemos utilizar. 


10.3 UTILIZACION DE CONJUNTOS DIMENSIONADOS 


Hasta ahora hemos visto cómo definir los conjuntos dimensionados. 
En este apartado veremos la utilización de los elementos de una lista o tabla 
dentro de las instrucciones normales. 
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Figura 2. Lista numérica con su 
contenido. 
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Para simplificar, nos referiremos por el momento a una lista que es un 
conjunto de una sola dimensión. Posteriormente lo ampliaremos para los 
conjuntos de más dimensiones. 

Como es lógico no podemos referirnos a un dato contenido en una lista 
utilizando simplemente el nombre de la variable. Hay que indicar de alguna 
manera su posición dentro de la lista. Los elementos de una lista son co- 
rrelativos de forma que podremos referirnos a ellos por su número de orden 
(tercero, séptimo, etc). Este número de orden se denomina subíndice. Este 
nombre proviene del Algebra matricial pues ya hemos mencionado que hay 
una relación muy estrecha entre los conceptos de lista y tabla por un lado 
y los conceptos de vector y matriz por otro. 

Para referirnos a un elemento de una lista se escribe el nombre de la 
variable y a la derecha, entre paréntesis, el subíndice. Por ejemplo, supon- 
gamos que definimos la lista A con 4 elementos y queremos almacenar el 
varlor 85.7 en el segundo elemento de la lista. Escribiremos entonces 


Dim A(4) 
LEFT A(2)=835. 7 


La segunda instrucción nos muestra la forma general de cómo se uti- 
lizan los elementos de una lista. El contenido de la lista se observa en la 
figura 2. Todos los elementos son ceros, excepto el segundo donde hemos 
almacenado el dato 85.7. Si ahora tecleamos 


PRINT AI,ACZ) 


el primer resultado es un cero ya que A(1), es decir el primer elemento de 
la lista está vacío. El segundo resultado será el número 85.7 que corres- 
ponde a A(2). Los elementos de una lista se pueden emplear exactamente 


E 
AD 


ls 


Hay que distinguir 
contenido y posición 
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en los mismos lugares donde se empleará una variable simple. Por tanto, 
si ahora escribimos 


LET A(4)=A(2) 


significa que realizamos una copia del valor de A(2) sobre A(4). 

En este momento hay dos elementos (el segundo y el cuarto) de la lista 
A que tienen el mismo valor. 

Es muy importante entender la diferencia entre contenido y posición. 
En el ejemplo anterior, el número 2 y el 4 indican las posiciones de la lista 
y el número 87.5 es el contenido. En este ejemplo, la diferencia es muy 
evidente, pero a veces no lo es tanto. Si escribimos 


LET AZ+1)=4 


significa que en la posición o subíndice 3 (2 más 1) se almacena el número 
4 (contenido). Obsérvese que el elemento A(2) no ha sufrido variación. La 
instrucción 


SRINT AC) 


escribirá un 4 como resultado. 
Todo lo anterior también es válido para las variables altanuméricas o 
textuales. Por ejemplo: 


Dim E$(4) 
LET ES(2)="CASA" 


Hemos definido una lista B$ que contiene 4 textos. En la segunda po- 
sición de la lista hemos almacenado la palabra «CASA». 


10.3.1 Subíndices calculados 


Como hemos visto en el ejemplo del apartado anterior, no hace falta 
emplear números concretos para indicar un subíndice, sino que se pueden 
emplear expresiones numéricas. El resultado de la expresión se toma como 
subíndice. Lógicamente, si el resultado es fraccionario, se suprimen los de- 
cimales puesto que no tiene sentido referirse por ejemplo al elemento 3.5. 

La principal ventaja de permitir expresiones numéricas en el cálculo del 
subíndice está en que, como consecuencia, también está permitido el em- 
pleo de variables en este cálculo. Por ejemplo: 
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El cálculo de subíndices se 
hace mediante expresiones 
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LET I=1 
LET ACI=20 


El valor 20 se almacenará en el elemento 1 de la lista puesto que | 
valía 1. Estudiando con atención este par de instrucciones, vemos que con 
sólo variar el valor de |, el número 20 se almacenará en cualquiera de las 
posiciones de la lista. Este hecho es fundamental, pues nos permitirá es- 
cribir programas con pocas instrucciones que, por el contrario, manejarán 
gran cantidad de datos. 

Por esta razón, las instrucciones FOR/NEXT son compañeras inse- 
parables de los conjuntos dimensionados. La variable de la instrucción FOR 
se emplea en el cálculo del subíndice. 


10.3.2 Subíndices de una tabla 


Cuando hay que referirse a un elemento de una tabla se indican tantos 
subíndices como dimensiones tiene la tabla. En general se emplean tablas 
de dos dimensiones y sólo muy raramente se emplean de tres o más di- 
mensiones. Los diversos subíndices se sitúan dentro del paréntesis y se 
separan entre sí mediante comas (,). 

Por ejemplo: 


Dim T(4,4) 
LET T(1,2)=07 


En este caso se asigna el valor 87 al elemento de subíndices (1,2) de 
la tabla T. 


10.3.3 Elemento cero 
En el BASIC estándar, al definir un conjunto dimensionado se reserva 


espacio también para los elementos de subíndice cero. Por ejemplo, la ins- 
trucción 


Dim Xx(4) 


reserva espacio para los elementos X(0), X(1), X(2), X(3) y X(4). 
Asimismo, la instrucción 


DIM T(4,4) 


A A 


reserva espacio para 
0,0 0,1 0,2 0,3 0,4 


1,0 1,1 1,2 1,3 1,4 
2,0 2,1 2,2 2,3 2,4 
3,0 3,1 3,2 3,3 3,4 
40 4,11 4,2 4,3 4,4 
Sin embargo, no utilizaremos en nuestros ejemplos, excepto para ca- 
sos muy concretos, los elementos con subíndice cero. 
Al utilizar un elemento de un conjunto, el subíndice debe estar com- 


prendido entre cero y el valor máximo de la dimensión. Si se usa un valor 
fuera de estos límites, se produce un error. 


RESUMEN AN 


Cuando hay que manipular muchos datos del mismo tipo, es ne- 
cesario, disponer de listas o tablas de conjuntos dimensionados. 

El BASIC dispone de unas variables que se refieren a un conjunto 
dimensionado completo. 

Esta variable memoriza más de un dato elemental, es decir, nú- 
mero o texto; de aquí su nombre de conjunto. 

Se le añade dimensionado, pues la disposición de los datos se 
asemeja a distintas disposiciones en el espacio. 

Una lista es un conjunto seguido de datos. En lenguaje mate- 
mático se denomina también vector. Se trata del conjunto de una di- 
mensión pues un elemento está lógicamente entre otros dos. 

Una tabla es un conjunto de dos dimensiones, una dimensión es 
la que en un papel denominamos filas y la otra columnas. En términos 
matemáticos se denomina matriz. 

De hecho es posible trabajar con más dimensiones, aunque el 
número de dimensiones más frecuente es uno o dos. 

La principal característica de los conjuntos dimensionados es la 
homogeneidad, es decir, todos los datos son de las mismas carac- 
terísticas. No es posible mezclar números con textos y viceversa. 

La definición en BASIC de los conjuntos dimensionados es más 
complicada que el de una variable sencilla. 

Las normas referentes a los nombres de los conjuntos dimensio- 
nados son las mismas que las que se utilizan para las variables sim- 
ples. El dólar al final del nombre indica que la tabla está construida 
con elementos textuales; en caso contrario, es que sus valores son 
numéricos. 

Los nombres pueden tener alguna restricción respecto a los que 
tienen las variables simples. 


63 


BASIC 


64 


En el momento de la definición, es necesario especificar la can- 
tidad de elementos que contiene el conjunto, a fin de que el BASIC 
reserve la cantidad de memoria necesaria. 

El BASIC dispone de la instrucción DIM para realizar la reserva 
de memoria. Es una abreviatura de dimensión. 

La instrucción tiene dos misiones: establecer cuántas dimensio- 
nes tiene el conjunto y de cuántos elementos consta. 

El formato general de la instrucción es: 


DIM (nombre) (e1,e2,e3...) 
en donde, 


(nombre), define el nombre que utilizaremos para referirnos a este 
conjunto. Si el nombre termina con el símbolo dólar significa que el 
conjunto es de textos; en caso contrario es de números. El el, e2, e3, 
son expresiones numéricas que indican el número de elementos que 
tiene cada dimensión. El número de expresiones que colocamos se- 
parados por comas es el número de dimensiones que tiene el conjunto 
dimensionado. 

Además en una misma instrucción DIM se pueden definir varios 
conjuntos dimensionados, basta separar cada uno de ellos por una 
coma. 

Es corriente dar el nombre de filas y columnas a cada una de las 
dimensiones del conjunto. Este nombre no está en principio asociado 
a la primera o segunda dimensión que hemos especificado, pues de- 
pende del uso que realicemos de cada una de ellas. Sólo es necesario 
ser coherente, después de tomar una decisión. Si a la primera di- 
mensión se le llama fila, es necesario mantener esta nomenclatura a 
lo largo de todo el programa. 

La instrucción DIM debe realizarse antes de utilizar los elementos 
que define. Además sólo debe realizarse una sola vez. Aunque se 
puede colocar en cualquier lugar del progrma se suelen agrupar al 
principio del mismo, para poder utilizar los elementos enseguida. 

Para referirnos a un elemento concreto de un conjunto dimensio- 
nado se utiliza el subíndice, que nos da el número de orden del ele- 
mento dentro de una dimensión. 

Para acceder a un elemento de un conjunto dimensionado se es- 
pecifica el nombre del conjunto seguido del subíndice encerrado entre 
paréntesis. 

En el interior del paréntesis se puede colocar una expresión en 
la que intervengan otras variables numéricas. 

Cuando un conjunto contiene más de una dimensión se separan 
cada una de las expresiones que calcula cada uno de los subíndices 
mediante la coma. 

El BASIC permite que el valor del subíndice sea cero. De hecho 
la instrucción DIM reserva espacio para el elemento cero. 

Cuando definimos DIM A(3), reservamos de hecho 4 números, el 
que se asocia al subíndice O, 1, 2 y 3. 
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EJERCICIOS AUTOCOMPROBACION 
Complete las frases siguientes: 


1. Las listas o tablas se utilizan para manipular datos del mismo .... 


. El BASIC dispone de unas variables para el almacén de muchos 
datos que se denominan dimensionados. 


. Una lista es un conjunto dimensionado de 
dimensión. También se llama 


. Una tabla es un conjunto dimensionado de 
dimensiones. También se llama 


. El número de de un conjunto dimensionado 
puede ser grande, aunque lo más frecuente es uno o dos. 


. No es posible que un conjunto dimensionado contenga simultá- 
neamente textos y 


. El nombre de los conjuntos dimensionados puede tener alguna 
según el tipo de BASIC. 


. El nombre de una variable conjunto dimensionado que termina en 
indica que sus elementos son textuales. 


. La instrucción DIM debe realizarse de utilizar 
los elementos que define. 


. El método para indicar un elemento del conjunto dimensionado 
es utilizar el número de orden relativo al 
conjunto dimensionado. 


12. El número de orden de un elemento dentro de un conjunto di- 
mensionado Se denQMinNa .....ooocconcconnccicccciccnccnos. 
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13. 


14. 


15. 


la 


16 


é 


18. 


19. 


20. 


El subíndice de un elemento se encierra entre ................................ 
.... detrás del nombre del conjunto dimensionado. 


Cuando un conjunto dimensionado tiene varias dimensiones los 
subíndices de cada una de ellas se Separan POr ccoo... 


Es posible utilizar en el Basic estándar el .................................... que 
vale cero. 


Rodee con un círculo la V si la instrucción es verdadera y rodee 
F si la instrucción es falsa. 


. DIM A(B$) VE 
DIM AS(B) V F 
DIM A(7,) vV EF 
DIM A(8,3),B(2) VE 
DIM J,B(J) V EF 


Sea la tabla sigúiente: 


A(1)=2 : A(2) = 23 : A(3) = 32 : A(4) = 85 


Encierre en un círculo la respuesta que corresponda a la alter- 


nativa correcta. 


21. 
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¿Cuál es el subíndice cuyo elemento contiene un 23? 


a) 1 
b) 2 
Cc) 3 
d 4 
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22. ¿Qué valor se imprimirá con la instrucción? 
PRINT A (A(1)+2) 


a) 2 
b) 23 
c 32 
d) 85 


. ¿Cuál es el subíndice del mayor elemento? 


a) 1 
bj) 2 
Cc) 3 
d 4 


. ¿Cuál es el elemento de mayor subíndice? 


a) 2 
b) 23 
Cc) 32 
d) 85 


. ¿Qué valor tiene el elemento de subíndice 3? 


a) 85 
b) 23 
Cc) 32 
d) 2 


10.4 PROCEDIMIENTOS BASICOS 


En este apartado veremos una serie de procedimientos y algoritmos 
básicos para manejar los conjuntos. Podemos considerar a estos procedi- 
mientos como las piezas fundamentales para construir programas más 
complejos. 
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10.4.1 Llenar un conjunto 


Para almacenar información en un conjunto podemos emplear la ins- 
trucción LET de la forma que ya conocemos. Por ejemplo: 


10 Dim A(4) 

20 LET A()=60 

30 LET A(Z)=20 

40 LET AG) =47 

SÓ LET A(4)=56 

60 PRINT ACII+A(A) 
7O PRINT A(1)+4(3) 


En la línea 10 definimos el conjunto A con cuatro elementos numéricos. 
En las líneas comprendidas entre la 20 y la 50 se almacenan los datos en 
el conjunto. Finalmente, en las líneas 60 y 70 se escriben respectivamente 
las sumas de los elementos pares (2 y 4) y de los impares (1 y 3). Estas 
dos últimas líneas no tienen importancia. Simplemente están para compro- 
bar que hemos utilizado correctamente las instrucciones anteriores para en- 
trar datos. 

Si los datos para llenar el conjunto hay que entrarlos por el teclado en 
el momento de la ejecución se emplea entonces la instrucción INPUT en 
lugar de LET. El programa anterior quedaría: 


10 DIM Atá> 

20 INFUT ACÍ) 

30 INFUT AC) 

40 INPUT A(3) 

50 IMEPUT A(4) 

EN ERINT A(Z2)+A8(4) 
70 FRINT ACII+A(3) 


La utilización de variables en Observamos que las líneas 20, 30, 40 y 50 son muy parecidas entre 

los subíndices permite sí y únicamente se diferencian en el subíndice de la variable. Es el momento 

facilitar el trabajo de de aprovechar las ventajas de las instrucciones FOR/NEXT. El programa 
programación anterior lo cambiaremos por: 


10 LET N=4 : DIM A(N) 
20 FOR I=1 TO N 

30 INPUT ACI) 

40 NEXT 1 

50 FRINT A(2)+A1(4) 

60 PRINT ACI)+A(3) 
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Aquí hemos introducido varias modificaciones. En primer lugar, en la 
línea 10 empleamos la variable N para establecer las dimensiones de A. 
Esto tiene la ventaja de que memorizamos el número de elementos que 
tiene el conjunto. De esta forma podemos utilizar la variable N en la línea 
20. En esta línea establecemos un bucle que se repetirá desde 1 hasta N. 
La línea 30 es importante. En ella utilizamos la variable | de la instrucción 
FOR para determinar el subíndice. De esta forma sólo es necesario emplear 
una instrucción INPUT. La línea 40 es la que cierra el bucle. Las líneas 50 
y 60 son iguales a las líneas 60 y 70 del programa anterior. 

En este ejemplo hay que remarcar dos cosas. En primer lugar el ahorro 
de instrucciones. Esta forma de escribir el programa es mucho más simple 
que teclear todas las instrucciones INPUT. En segundo lugar el programa 
es muhco más flexible. Si en lugar de emplear un conjunto de 4 elementos, 
deseamos utilizar uno de 20 elementos, únicamente hay que realizar un 
cambio en la línea 10. En esta línea sustituiremos el valor 4 que se asigna 
a N por el valor 20. La instrucción queda: 


10 LET N=20 2 DiM ACN) 


Tanto la instrucción DIM como la instrucción FOR de la línea 20 no 
sufren variación, ya que la variable N contiene siempre el límite real del 
conjunto A. 

Al efectuar un RUN y probar el programa, éste nos pedirá que entremos 
4 números (o 20 según el valor de N). Notaremos que una vez entrados 
unos cuantos, se hace difícil recordar cuál es la posición del elemento que 
estamos tecleando. Para facilitar las cosas añadiremos una instrucción que 
nos informe de la posición para la cual entramos el dato. Esta instrucción 
será: 


253 PRINT "Elemento "31 


De esta forma, antes de pedirnos el dato, aparecerá en pantalla un 
mensaje del tipo 


Elemento 1 


El número del final irá variando según el valor de |. 
Todo lo que acabamos de ver para una lista numérica también se aplica 
para las variables de tipo textual. Por ejemplo: 


10 DIM ES(4) 
20 LET B$(1)="CASA " 

30 LET B$(2)="ARBOL " 
40 LET B$(3)="GRANDE"  - 
50 LET B$(4)="ALTO" 

60 PRINT BS (1) +B9 (3) 

70 PRINT Eb(2)+B$ (4) 
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Cada dimensión requiere su 
bucle o instrucción 
FOR/NEXT 


Figura 3. Tabla con notas de 
tres asignaturas correspondien- 
tes a dos exámenes. 
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Este programa es idéntico al primer ejemplo del conjunto numérico A. 
Las instrucciones 60 y 70 escribirán en pantalla 


CASA GRANDE 
ARBOL ALTO 


De igual manera, se emplea la instrucción INPUT cuando los datos se 
teclean en el momento de ejecución. El programa quedará: 


10 LET N=4 2: DIM E$(N) 
¿20 FOR 1I=1 TON 


30 ERINT "ELEMENTO "51 
40 INFUT E$(1) 
50 NEXT 1 


60 PRINTO Bs (1) +B$ (3) 
70 PRINT BS (2)+E$(4) 


Cuando se trata de introducir datos en una tabla utilizaremos un pro- 
cedimiento parecido pero con dos bucles. Puesto que llenaremos filas y 
columnas, colocaremos dos bucles. Por cada fila, leeremos todas las co- 
lumnas. Por tanto dispondremos uno de los bucles en el interior del otro. 
Conviene recordar lo que mencionamos acerca de la equivalencia entre 
filas y columnas. Antes de diseñar un programa hay que establecer un con- 
venio. Por ejemplo, el primer subíndice serán las filas y el segundo serán 
las columnas. 

Supongamos que tenemos la tabla de la figura 3. Las filas son las asig- 
naturas y las columnas son dos exámenes distintos. El siguiente programa 
permitirá leer esta tabla. 


10 Dim C(3,2) 
20 FOR 1=1 TO 3 
30 FOR J=1 TO 2 


a INPUT CECI, J) 
SO NEXT 3 
50 NEXT 1 


El bucle exterior determina el número de fila (o asignatura) y el bucle 
interior determina el número de columna (o examen). Las notas deberán 
teclearse en el orden siguiente: 7, 8, 4, 6, 6 y 5. En este momento la tabla 


Asignatura 1 
Asignatura 2 
Asignatura 3 
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C contiene las notas en el orden adecuado. Lo comprobaremos escribiendo 
la instrucción 


que imprimirá el número 4 que corresponde a la nota de la asignatura 2 en 
el examen 1. 

Si deseáramos entrar las notas en orden inverso, es decir, primero to- 
das las notas de un examen, colocaríamos los bucles de la siguiente ma- 
nera: 


En este caso, el orden en que deberían teclearse las notas sería: 7, 4, 
6, 8, 6 y 5. Si no hemos cometido ningún error al entrar los datos, la tabla 
C contiene exactamente los mismos datos que antes. Si efectuamos de 
nuevo la instrucción 


el resultado sigue siendo 4. 

Una idea importante que nos enseña este ejemplo es que una tabla se 
maneja siempre con dos bucles situados uno en el interior del otro («ani- 
dados»). 

También sería interesante aplicar aquí el procedimiento de guardar el 
tamaño del conjunto en una variable. Como es lógico, por tratarse de una 
tabla necesitaremos dos variables. El programa quedaría entonces 


Las instrucciones comprendidas entre la 30 y la 70 nos sirven para 
cualquier tabla, sea cual sea su tamaño. 
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ñadiendo la potencia del 


FOR/NEXT a las tablas de 


72 


datos se pueden realizar 


10.4.2 Escribir un conjunto 


Si sólo hay que imprimir el contenido de algunos elementos del con- 
junto emplearemos la instrucción PRINT de forma normal. Si por el contra- 
rio, es necesario escribir todo el conjunto o una parte importante del mismo, 
aprovecharemos las ventajas que nos facilitan las instrucciones FOR/ 
NEXT. 

Volvamos ahora al ejemplo donde utilizábamos la lista A. Supongamos 
que queremos escribir todos los elementos entrados en pantalla. El pro- 
grama quedará: 


10 LET N=4 : DIM A(N) 

20 FOR l="1 TO N 

30 PRINT."ELEMENTO "1 
40 INFUT ACI) 

50 NEXT 1 

60 FOR I=1 TO N 

7O FERINT 1,AC1) 

1-18) NEXT 1 


Las líneas situadas entre la 10 y la 50 sirven para entrar los datos. La 
línea 60 establece el bucle de escritura que, como de costumbre, irá de 1 
hasta N. En la línea 70 hacemos escribir el valor del subíndice y el contenido 
del subíndice. De esta forma el propio programa nos escribe numerados los 
elementos facilitando su lectura. Finalmente la línea 80 cierra el lazo de la 
línea 60. 

Estas tres últimas líneas escribirán todo el conjunto en el mismo orden 
en que se han entrado los datos. 

Ejecute ahora ei programa escribiendo RUN y déle un número a cada 
elemento, según le pide el programa. 

Puede darse el caso de que no se dese escribir toda la lista. Por ejem- 
plo, supongamos que sólo queremos escribir los elementos cuya posición 
sea un número impar (elemento 1, elemento 3, etc). Entonces las tres úl- 
timas líneas quedarían: 


60 FOR l=1 TO N STEP 2 
70 FRINT 1,A(1) 
BO NEXT 1 


Hemos añadido STEP 2 a la línea 60, de modo que el bucle avanzará 
de dos en dos, empezando desde 1. 

Si queremos escribir la lista en orden inverso al entrado, cambiaremos 
de nuevo la línea 60, quedando: 


60 FOR I=N TO 1 STEF —1 
7O FERINT 1,A(I) 
BO NEXT 1 
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Con estas instrucciones, la lista se escribirá desde N hasta 1. Como 
podemos comprobar, las instrucciones FOR/NEXT nos ofrecen una gran 
flexibilidad en el manejo de conjuntos. 

Para escribir una tabla utilizaremos dos bucles. En el ejemplo de la 
tabla de notas, el programa quedará: 


10 LET N=3 3 LET M=2 
20 Dim CN, mM) 
30 FOR I=i TON 


40 FOR J=1 TO M 
SÓ INEUIT EC, J) 
50 NEXT J 

7O NEXT 1 


390 FOR í=1 TO WN 
390 FOR J=1 TO M 


100 ERINT E(1,J) 
110 NEXT 3 
120 NEXT 1 


Las líneas comprendidas entre la 10 y la 70 son las que sirven para 
llenar la tabla C. A partir de la 80 y hasta la 120 establecemos los dos bucles 
de escritura. Observamos que la estructura de los bucles es idéntica a la 
de lectura y sólo se cambia la instrucción INPUT por la PRINT. 

Ocurre que, al ejecutar este programa, las notas se escriben conse- 
cutivamente en vertical. Esto es lógico puesto que la instrucción PRINT de 
la línea 100 salta de línea cada vez que se ejecuta. Si colocamos un punto 
y coma (;) al final de la instrucción, es decir: 


100 ERINT (1,375 


impediremos el salto de línea. Ahora las notas se escriben en horizontal, 
puesto que no se produce ningún salto de línea. Para que las notas queden 
en forma de tabla, hay que provocar un salto de línea cuando complete una 
fila. Una fila se completa cuando la variable J ha llegado al límite (a M). 
Entonces colocaremos una instrucción PRINT detrás de la línea 110. El 
programa quedará, a partir de la línea 80 


80 FOR I=1 TO N 
30 FOR J=1 TO M 


100 PRINT CID: 
110 NEXT J 
115 ERINT 


120 NEXT 1 
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Los resultados quedarán escritos en forma de tabla. No hay ninguna 
dificultad en girar 90 grados la tabla y escribir las asignaturas en horizontal 
y los exámenes en vertical (recordemos la equivalencia entre columnas y 
filas). Para realizar este giro, intercambiaremos el orden de los bucles 


80 FOR J=1 TO Mm 


30 FOR I=1 TON 
| 100 FRINT OCIO 

110 “o NEXT 1 

115 PRINT 

120 NEXT J 


Las notas se escribirán como una tabla de tres columnas (o asigna- 
turas) y dos filas (o exámenes). Probablemente este ejemplo nos habrá 
ayudado a comprender con mayor claridad todo lo que llevamos dicho sobre 
equivalencia entre filas o columnas. Observamos también que se respeta 
siempre el convenio inicial. Los elementos de la tabla se escriben siempre 
de la forma C(l,J). Este orden no se puede cambiar puesto que hemos es- 
tablecido que el primer subíndice va de 1 a 3 y el segundo va de 1 a 2. Por 
tanto existe el elemento C(3,1) pero, en cambio, no existe el elemento 
C(1,3). 


10.4.3 Máximo y mínimo de una lista 


Una necesidad que surge frecuentemente en programación es localizar 
el valor máximo (o el mínimo) de una lista. Para localizarlo rastrearemos 
toda la lista. El proceso es el siguiente: En primer lugar se supone que el 
máximo es el valor inicial de la lista. A continuación se compara este su- 
puesto máximo con el siguiente elemento. Si éste es mayor, se coloca en 
el lugar del máximo. En caso contrario no se realiza ninguna acción. Este 
proceso se repite para todos los elementos de la lista. El programa es el 
siguiente: 


10 LET N=E 4 DIM AXN> 
20 FOR I=1 TO N 


30 ERINT 1 
40 INPUT ACI) 
50 NEXT 1 


606 LET M=A (1) 

TO FOR 1=2 TO N 

80 12 ACIIÓM THEN LET M=A(1) 
30 NEXT 1 

100 ERINT "maxImO=":m 


En la línea 10 establecemos la lista A con N elementos (en este caso 
5). Las líneas situadas entre la 20 y la 50 constituyen el ya conocido bucle 


Rastreo y selección de un 
elemento de una lista 


Muchas veces es 
conveniente memorizar la 
posición de un dato 
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de entrada de datos. En este ejemplo le entraremos cinco datos numéricos 
cualesquiera. En la línea 60 empieza el proceso de localización del máximo, 
que lo almacenaremos en la variable M. En primer lugar suponemos que 
el máximo es el primer elemento de la lista. Esta suposición es completa- 
mente arbitraria y se realiza únicamente para empezar con un valor. No hay 
ningún problema en asignar a la variable simple M un elemento de una lista, 
A(1). Ya dijimos que un elemento de un conjunto dimensionado es total- 
mente equivalente a una variable simple. 

A continuación se encuentra el bucle de rastreo. Este lazo va desde el 
segundo elemento hasta N. No hace falta empezar desde 1 puesto que el 
valor del primero ya está almacenado en M. En la línea 80 comprobamos 
si el elemento que estamos mirando es mayor que M. Si es así, sustituimos 
el valor antiguo de M por el nuevo máximo. La línea 90 cierra el bucle. 

Una vez rastreada toda la lista, la variable M contendrá forzosamente 
el valor máximo. Finalmente, en la línea 100 el programa escribe su valor. 

Si en lugar de localizar el valor máximo, se desea localizar el valor 
mínimo, el procedimiento es análogo. Unicamente hay que cambiar la pre- 
gunta. En el programa anterior, la línea 80 queda: 


BO 1 ACI) (MA THEN LET mM=ACI) 


Ahora la variable M contiene el valor mínimo. Fijémonos que en la línea 
60, la suposición inicial es que A(1) es el mínimo. Por supuesto también 
hay que cambiar el mensaje de la línea 100, que quedará: 


100 SRINT "MINIMO=":M 


Al probar este programa observamos que el resultado es únicamente 
el valor del máximo (o del mínimo) pero no nos indica en qué posición de 
la lista se encuentra dicho valor. 

Para conocer esta posición utilizaremos una variable auxiliar donde la 
almacenaremos. El contenido de esta variable se actualizará cada vez que 
se modifique el valor de M, es decir, en las líneas 60 y 80. El programa 
anterior quedará de la siguiente manera a partir de la línea 60: 


60 


LET M=A(1) 3 LET Fi 
70 FOR 1=2 TO N 
80 1F ACID)M THEN LETOM=A(1) 1 LET P=1 
30 NEXT 1 


100 PRINT "MAXIMO=":M 
110 PRINT "POSICION="+P 


La variable P es la que contiene la posición. Empieza con el valor 1 
que corresponde a la posición de A(1). En la línea 80, si se almacena A(l) 
en M, entonces también se memoriza la posición | en la variable P. Final- 
mente en la línea 110 se escribe el valor de P. 
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Si en un programa se necesita localizar simultáneamente el valor má- 
ximo y el mínimo, no hace falta colocar dos bucles. Un solo bucle nos servirá 
para rastrear simultáneamente el máximo y el mínimo. En el siguiente pro- 
grama veremos cómo: 


10 LET N=5 : DIM AN) 
ZO FOR I=1 TON 


30 FRINT 1 
a INFUT ACI) 
30 NEXT 1 


60 LET MA=A(1) 1 LET Fi=1 
70 LET MI=A(1) 3: LET Pz=i 
80 FOR l=2 TO N 


30 IF ACIJ)MA THEN LET MA=A(1) 2 LET Pi=l 
110 LF ACI) (MI THEN LET MI=A(1) 3: LET Px=l 
120 NEXT 1 


130 PRINT MA, Fi 
140 ERINT MI, EZ 


En este programa, el máximo se almacenará en MA y su posición en 
P1. El mínimo se almacenará en MI y su posición en P2. Dentro del lazo 
formado por las líneas.80 y 110, se incluyen las dos preguntas para deter- 
minar simultáneamente el valor del máximo y del mínimo. 

Por supuesto, en todos estos ejemplos para el ordenador no constituye 
ningún problema si en lugar de tomar 5 elementos (línea 10), escogemos 
un número mucho mayor. Sin embargo, para el operador humano consti- 
tuye una tarea muy fatigosa, introducir centenares o incluso miles de datos. 


10.4.4 Suma de los elementos 


Otro de los algoritmos básicos del manejo de conjuntos es la suma de 
los elementos de una lista o de una tabla. El procedimiento para una lista 
es el siguiente: 


10 LET N=3 1: DIM AN) 
20 FOR 1l=1 TO N 


30 FRINT I 

Ao) INFEUT ACI) 
50 NEXT 1 

60 LET S:=0 a 
7O FOR I=1 TO N 
80 LET S=S+M(1) 
30 NEXT 1 


110 PRINT "SUMA=":5 


Variables que acumulan 
resultados resumen al 
manejar las tablas 
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Las líneas comprendidas entre la 10 y la 50 sirven para definir y llenar 
la lista A como ya conocemos de los ejemplos anteriores. En la línea 60 
definimos la variable S que servirá para acumular el resultado de las sumas. 
Su valor inicial (antes de sumar nada) es cero. A continuación se establece 
un bucle formado por las líneas 70 y 90. Este bucle se realiza para todos 
los elementos de la lista cuyo valor se acumula en S (línea 80). En la línea 
100, fuera ya del bucle, se escribe el valor total de la suma de elementos 
de la lista. En resumen, la estructura básica de este sistema se basa en 
inicializar con un cero la variable que acumulará el resultado y a continua- 
ción el proceso de suma sobre esta variable repetido para todos los ele- 
mentos. 

Si hay que sumar los elementos de una tabla, se aplica el mismo pro- 
cedimiento básico del caso anterior. Pero ahora tenemos tres posibilidades: 
suma de columnas, suma de filas y suma total. Para ilustrar los tres casos, 
volveremos al ejemplo de la tabla de notas (Fig. 3). Aunque pueda parecer 
lo contrario, el caso más sencillo de los tres es obtener la suma global de 
toda la tabla. El programa es el siguiente: 


10 LET N=3 2 LET M=2 
20 DIM CN, M) 
3O FOR i=1 TO N 


40 FOR J=1 TO M 
O INPUT CC, y) 
60 NEXT J 

TO NEXT 1 


80 LET 5S=0 
90 FOR 1=1 TO N 


100 FOR J=1 TO M 

110 LET S=5+C (1, J) 
120 NEXT JT 

130 NEXT 1 


140 ERINT "SUMA=":$5 


Las líneas comprendidas entre la 10 y la 70 sirven para entrar los datos 
por el teclado. Las notas deberán entrarse en el orden: 7, 8, 4, 6,6 y 5. A 
partir de la línea 80 empieza el proceso de suma. Como podemos observar, 
el procedimiento es análogo al del caso anterior. La única diferencia es que 
el bucle es doble puesto que hay que operar con dos subíndices. En la línea 
140 se escribe la variable S que contendrá la suma global de todos los 
elementos de la tabla. 

Para sumar una columna de una tabla hay que definir primero qué co- 
lumna deseamos sumar. Supondremos, por convenio, que el primer subín- 
dice son filas y el segundo son columnas. El programa anterior lo modifi- 
caremos a partir de la línea 80, puesto que la parte inicial queda invariable. 
La parte que realiza la suma queda de la siguiente forma: 
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La suma de filas y columnas 
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se hace con un conjunto 
dimensionado de una 
dimensión 


B0 LET S5=0 

30 LEFT Vs=1 

100 FOR I=1 TO N 

110 LET S=S+C0 (1, V) 

120 NEXT 1 

130 PRINT "COLUMNA="3V:"SUMA=":5 


La variable V definida en la línea 90 es la que establece el número de 
columna. En este caso se le hace sumar la columna 1. Si se coloca un 2 
en V se efectuaría la suma de la segunda columna. Cualquier otro número 
daría lugar a un error ya que sólo existen 2 columnas. En la línea 110 se 
acumula en S el valor de la suma de los elementos cuyo subíndice de co- 
lumna es V. Finalmente, en la línea 130 se escribe el número de columna 
y su suma. El resultado de la primera columna es 17 y el de la segunda 
es 19. 

Para sumar filas se intercambia el papel que juega cada subíndice. El 
segmento del programa anterior queda: 


380 LET S=0 

390 LET F=1 

100 FOR J=1 TO M 

110 LET S=S+C(F, 3) 

120 NEXT J 

130 ERINT "FILA="3F:"SUMA="35 


Ahora la variable F establece el valor de la fila. Los valores de F válidos 
son 1, 2 y 3. Comparemos los subíndices de C en la línea 110 y veremos 
que ahora el primer subíndice (F) permanece fijo, mientras que el segundo 
(J) varía de 1 a M. Las sumas de las tres filas son, respectivamente 15, 
10 y 11. 

A veces hay que calcular la suma para todas las columnas (0 filas) de 
una tabla. No es una buena solución programar un bucle para cada una de 
las columnas ya que, según el tamaño de la tabla, el programa podría ser 
enorme. En su lugar, se define una lista S de sumas con tantos elementos 
como columnas (o filas) tenga la tabla. Entonces el proceso de suma se 
sitúa dentro de un bucle que se repite para todos los elementos de S. 

Aprovecharemos también aquí la parte inicial del programa con una 
excepción. Añadiremos la línea 25 


¿25 Dim 50) 


Esta línea nos define la lista S que contendrá las sumas de las M co- 
lumnas. Cuando se ejecuta una instrucción DIM, todos los elementos de la 
variable definida en ella se ponen a cero (si la variable es numérica, claro 
está). Por tanto, ahora no será necesario colocar un cero inicialmente a 
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todos los elementos de S antes de empezar a sumar. A partir de la línea 
80, el programa queda: 


80 FOR J=1 TOM . 
390 FOR I=1 TON 


100 LET S(D)=S5(J)+0 (1, J) 
110 NE AA 
120 NEXT J 


130 FOR J=1 TO Mm 
140 ERINT S(J) 
150 NEXT J 


Las líneas 90, 100 y 110 constituyen el lazo de suma de una columna. 
El número de la columna viene definido por J, cuyo valor lo establece el 
bucle mayor formado por las líneas 80 y 120. Remarcamos el hecho de que 
en la línea 100 los valores de los elementos de la columna J se almacenan 
en el elemento J de S. Finalmente, a partir de la línea 130 se escriben los 
resultados almacenados en S que en este caso son 2. El primero vale 17 
y el segundo 19. Como es fácil comprobar, las instrucciones FOR/NEXT 


son compañeros inseparables de los conjuntos dimensionados. 
- 
(E, 10.4.5 Localización por número 


Una operación frecuente es la localización de un elemento dentro de 
una lista. Esta búsqueda puede efectuarse de dos maneras, por número y 
por nombre. El primer tipo de búsqueda responde a la pregunta de «¿Qué 
es lo que hay en la posición número tal?». El segundo tipo responde a «¿En 
qué posición se encuentra el nombre tal?». 

La localización por número es la más sencilla. Aunque se pueden rea- 
lizar búsquedas en listas numéricas o textuales indistintamente, suelen ser 
de mayor utilidad las que se realizan sobre listas de textos. Por esta razón, 
emplearemos este tipo de variables en nuestro ejemplo. 


10 REM Localizacion por numero 
ZO LET N=5S : DIM A$(N) 

30 FOR I=1 TO N 

40 INFUT As(1) 

50 NEXT 1 

60 INPUT "POSICION: ":;E 

70 18 P=0 THEN STOFR 

BO PRINT A$(P) ; 

390 GOTO 0 
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La búsqueda por número es 


directa. No se precisa 
rastreo 


La localización por nombre 


requiere el rastreo de la 


lista, y una salida del bucle 


80 


si se encuentra 


La línea 10 es un comentario informativo sobre el programa. A conti- 
nuación (línea 20) se define la tabla alfanumérica o textual A$ de cinco 
elementos. Las líneas situadas entre la 30 y la 50 sirven para introducir los 
datos en A$ desde el teclado. Supongamos que le entramos la siguiente 
lista de nombres: MARIA, JUAN, ANA, JOSE y PEDRO. Seguidamente el 
programa nos pide la posición. Le responderemos con un número com- 
prendido entre 1 y 5. Si le respondemos un cero, el programa lo toma como 
indicación de que queremos terminar la ejecución del programa. Esto se 
realiza en la línea 70, donde si se cumple que P vale cero, entonces se 
detiene el programa (instrucción STOP). Si respondemos un 4 por ejemplo, 
entonces el programa sigue y en la línea 80 nos escribirá el valor del cuarto 
elemento de A$ que es JOSE. El control se transfiere de nuevo a la línea 
60 donde nos pide una nueva posición. Mientras le respondamos valores 
de la posición comprendidos entre 1 y 5, el proceso se repetirá indefini- 
damente. Para detener el programa, le entraremos un cero, como ya hemos 
mencionado. 

Este programa serviría igualmente fuese cual fuese el tamaño de la 
lista. Es importante señalar que el ordenador tardará exactamente lo mismo 
en localizar cualquier elemento tanto si está situado al principio como al 
final de la lista. 


10.4.6 Localización por nombre 


La localización por nombre es un poco más difícil de programar que la 
búsqueda por número. A diferencia del caso anterior, ahora puede ocurrir 
que el programa no localice el nombre buscado porque éste no se en- 
cuentre realmente en la lista. Por tanto, ahora hay que preveer dos casos, 
que haya éxito en la búsqueda o que no lo haya. El programa es el si- 
guiente: 


10 REN Localizacion por nombre 
ZO LET ON=3 1 DIM A$(N) 
30 FOR 1l=1 TO ON 


40 INEDT A$CI) 

50 NEXT 1 

60 INELT "NOMBRE 3": X$ 

70 1 X$="" THEN STOF 

80 FOR I=1 TON 

390 IF X$=8$(1) THEN GOTO 130 
100 NEXT 1 


110 FRINT "NO ESTA" 

120 GOTO 60 

130 EFRINT "RFOSICION="+*1 
140 GOTO 60 


La primera parte, hasta la línea 50 es idéntica al ejemplo anterior ex- 
cepto, claro está, el mensaje explicativo de la línea 10. Para probar el pro- 
grama podemos emplear la misma lista de nombres. 
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En la línea 60 el programa pide el nombre a localizar, que se alma- 
cenará en X$. Podemos contestar cualquier nombre. Si respondemos con 
un texto vacío, representado por dos símbolos de comillas juntos (””), el 
programa se detiene como se ve en la línea 70. En caso contrario, el pro- 
grama inicia la fase de búsqueda. 

En la línea 80 empieza un proceso de rastreo donde se va preguntando 
si el elemento es igual a X$ (línea 90). Si no conciden, se incrementa el 
valor de | y se sigue el bucle. Supongamos que el programa llega al final 
del bucle y ningún elemento de A$ es igual a X$. En este caso, la ejecución 
prosigue por la línea 110 donde el programa nos informa del fracaso en la 
búsqueda. A continuación, pasa el control de nuevo a la línea 60. 

Retrocedamos ahora a la línea 90. Si en algún momento durante el 
rastreo se encuentra un elemento de A$ idéntico a X$, entonces el pro- 
grama abandona el bucle y continúa en la línea 130, donde escribe el valor 
de |. Notemos que este valor de | es el que corresponde al subíndice de 
A$ cuando hemos abandonado el bucle. Por tanto, | contiene la posición 
donde hemos localizado X$. 

Introduzcamos en primer lugar los mismos nombres que antes al eje- 
cutar el programa. Si en la línea 60 contestamos JUAN, el programa nos 
imprime un 2. Si escribimos PEDRO, nos escribe un 5, etc. Al escribir los 
nombres hay que recordar lo que ya se ha comentado respecto a la dife- 
rencia entre letras mayúsculas y minúsculas. No estará de más repasar en 
este punto el capítulo dedicado a comparación lexicográfica. 

En la localización por nombre, el tiempo de búsqueda depende de la 
posición. Puesto que se realiza un rastreo, los elementos situados hacia el 
final de la lista tardan más en ser localizados. En nuestro ejemplo, al tra- 
tarse de una lista corta, no hay diferencia apreciable en el tiempo que tarda 
en localizar un elemento u otro. Sin embargo, en listas más largas, la di- 
ferencia puede ser significativa. 


10.4.7 Fechas en letras 


El objetivo de este programa es convertir una fecha escrita en números 
a la misma fecha escrita en letras. Por ejemplo, la fecha 21-10-84 se trans- 
forma en 21 de octubre de 1984. Este programa es bastante interesante 
puesto que incluye la aplicación de varias funciones, además del empleo 
de conjuntos dimensionados. 

Para que el programa opere correctamente, la fecha debe tener la 
forma general DD-MM-AA, es decir, dos cifras para el día, mes y año. Entre 
los tres grupos de cifras se incluirá un símbolo de separación que puede 
ser un guión (-), una barra (/) o cualquier otro. El listado del programa es 
el siguiente: 


1O REM Fecha en letras 
ZO DIM N$ (12) 

30 LET N$(1)="Enero"” 
40 LET N$t<)="Febrero"” 
50 LET Ns$(3)="Marzo" 
60 LET N$(4)="Abril" 
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Los nombres de los meses 
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son una aplicación de la 
localización por número 


TO LET N$(H)="Mayo" 

30 LET N$(6)=". Junio" 

90 LET N$(73)="Julio” 

100 LET N$(B8)="Agosto" 

110 LET N$(9)="Setiembre” 

120 LET N$(10)="Dctubre" 

130 LET N$(11)="Noviembre”" 

140 LET Né$(i2)="Diciembre" 

150 INPUT "FECHA (DD-MM-A0) 12"3F$ 
160 1F Fs$="" THEN STOP 

170 LET De=LEFTS(F4%, 2) 

180 LET M$=M1D$1(F$%,4, 2) 

190 LET AS=RIGATS(IFS, Z 
ZOO LET I=VAL (M4) 

10 ERINT D$:3" de ":N$(1)3:3" del 19":0% 
20 GOTO 150 


La línea 10 es un comentario sobre el objetivo del programa. En la línea 
20 se define la variable N$ de 12 elementos que contendrá la lista de los 
nombres de los meses. Las líneas situadas entre la 30 y la 140 sirven para 
almacenar dichos nombres. Se emplea la instrucción LET en lugar de IN- 
PUT porque entonces el operador se vería obligado a teclear la lista com- 
pleta de los nombres cada vez que efectuara un RUN. En capítulos pos- 
teriores veremos algunos sistemas más eficientes para llenar un conjunto 
dimensionado. 

En la línea 150 el programa pide la fecha a convertir. Supongamos que 
le contestamos «21-10-86». Este valor se almacena en F$. Notemos que 
la fecha hay que almacenarla en una variable textual pues, aunque contiene 
cifras, no constituye ciertamente un número. 

La línea 160 se utiliza para que el operador pueda detener el programa. 
En efecto, si en lugar dé la fecha contestamos el texto vacío (””) entonces 
el programa se detiene. 

El programa descompone ahora la fecha en sus tres elementos básicos 
(día, mes, año). Esta operación la realizan las instrucciones 170, 180 y 190. 
Después de efectuar estas instrucciones, la variable D$ contendrá, si- 
guiendo con el ejemplo, el valor «21». Asimismo, las variables M$ y A$ 
contendrán los valores «10» y «86» respectivamente. Para fragmentar la 
variable F$, se han empleado las funciones textuales que se estudiaron en 
los primeros capítulos. En caso de existir alguna duda convendría realizar 
un repaso. Notemos que los tres datos (día, mes, año) siguen siendo de 
tipo textual pues provienen de la fragmentación de un texto (F$). 

Otro de los puntos clave de este programa es convertir el valor del mes 
en su nombre. Es decir, pasar de «10» a octubre. Los nombres de los me- 
ses están almacenados en la lista N$. Por tanto si escribimos 


PRINT N$(10) 
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el resultado será «Octubre». Como vemos, se trata del mismo procedi- 
miento que el descrito en la localización por número. La solución parece 
inmediata. Sustituir el subíndice 10 por la variable que contiene el mes, de 
modo que según sea el valor de ésta, se escribirá el valor del mes asociado. 
Sin embargo, hay un problema. El valor del mes está almacenado como 
dato textual y no puede emplearse por tanto como subíndice de un conjunto. 
Ahora bien, existe una función que permite realizar la conversión de tipo 
textual a numérico. Esta función es VAL. En la línea 200 la variable | recibe 
el valor numérico de M$, en nuestro ejemplo, un 10. 

Tenemos ya todas las piezas y sólo falta escribirlas. En la línea 210 se 
escriben D$ y A$ sin cambio alguno pues tanto el día como el año se es- 
criben en cifras. Para escribir el mes, se utiliza N$(1). Para completar la frase 
se usan los textos fijos «de» y «del 19», de forma que el resultado sea «21 
de Octubre del 1984». Finalmente, se pasa control de nuevo a la línea 150 
para realizar la conversión de una nueva fecha. 

Este programa funciona para cualquier fecha correcta. Sin embargo no 
realiza ninguna comprobación sobre su validez. Si se le entra una fecha 
incorrecta o que no se ajusta al formato DD-MM-AA, el programa escribirá 
resultados erróneos. 

Si el valor del día es inferior a 10, por ejemplo 01-01-84, entonces la 
fecha convertida queda «01 de Enero del 1984». El cero inicial de «01» 
permanece puesto que se considera un dato de tipo textual. Para suprimirlo, 
lo pasaremos a numérico ya que entonces quedan eliminados los ceros de 
la izquierda por no ser significativos. La línea 210 quedará: 


e 


210 ERINT VAL (D$):;" de ":3N$(1)3" del 19":4% 


Al igual que en la línea 200, hemos empleado la función VAL para rea- 
lizar la conversión. Notemos que este cambio no afecta a los días cuyo valor 
sea 10 o más. En cambio, la fecha «01-01-84» quedará escrita como 
«1 de Enero de 1984». 


10.4.8 Cálculo de la media 


Una operación que suele ir asociada a los conjuntos numéricos es el 
cálculo de la media aritmética. Recordemos que la media aritmética se de- 
fine como la suma de los elementos dividido por el número de elementos. 
Así por ejemplo, si tenemos tres notas correspondientes a tres exámenes, 
cuyos valores son 4, 6 y 8, la nota media se calculará haciendo 
4 + 6 + 8= 18 que dividido por 3 se obtiene 18 / 3 = 6. 

De acuerdo con la definición anterior está claro que la primera ope- 
ración a realizar es la suma de los elementos. En uno de los procedimientos 
básicos vistos anteriormente ya hemos resuelto este problema. El cálculo 
de la media será, simplemente, una ampliación de los que ya conocemos. 
El siguiente programa es un ejemplo de cómo se calcula la media de una 
lista. 
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10 LET ON=5 * DIM A(N) 
20 FOR l=1 TO ON 


30 ERINT 1 

40 INSUT ACI) 
30 NEXT 1 

60 LET S5=0 

70 FOR 1=1 TON 
80 LET S=S+A11) 


90 NEXT 1 
100 LET M=S/N 
110 EFRINT "MEDIA="3M 


Las líneas comprendidas entre la 10 y la 50 sirven para definir la list; 
A y llenarla desde el teclado. En la línea 60 definimos la variable S y l: 
inicializamos con un cero. A continuación se calcula la suma de los ele 
mentos mediante el bucle de las líneas 70, 80 y 90. Hasta aquí hemos re 
producido el procedimiento de suma de la lista. En la línea 100 calculamo: 
la media y la almacenamos en M. Finalmente en la línea 110 se imprimi 
el resultado. 

Conviene remarcar que si se cambia el valor de N de la línea 10, e 
resto del programa funcionará de forma idéntica incluyendo el cálculo de |: 
media. 

Si en lugar de una lista tenemos una tabla, el cálculo de la media tien: 
las tres posibilidades que vimos para el caso de la suma de los elementos 
Recordemos que estas posibilidades eran: media global, media de cad: 
columna y media de cada fila. Utilizamos de nuevo la tabla de la figura : 
como ejemplo. 


Para calcular la media aritmética global emplearemos el siguiente pro 
grama: 


10 LET N=3 2 LET M=2 
ZO DIM CON, M) 
30 FOR 1l=1 TO N 


40 FOR J=1 TO M 

50 INPUT 0(1,J) 
60 NEXT J 

70 NEXT 1 

B0 LET S=0 

90 FOR I==1 TO ON 

100 FOR J=1 TO M 

110 LET S=9+C0 (1, 3) 
120 NEXT J 

130 NEXT 1 


140 LET X=S/ (NM) 
150 PFRINT "MEDIA="*X 


La primera parte hasta la línea 130 ya la hemos estudiado y sirve par: 
obtener la suma global de todos los elementos. En la línea 140 se evalú: 
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la media que se almacena en X. Fijémonos que en una tabla, el número 
total de elementos es igual al producto de sus dimensiones. Por tanto, el 
valor de la suma S hay que dividirlo por dicho producto, en este caso N*M. 
Este producto está escrito entre paréntesis a causa del orden de prioridad 
de los operadores. 

Entrando las notas en el orden 7, 8, 4, 6, 6 y 5 el resultado será 6. 

Para calcular la media de una columna modificaremos el programa an- 
terior a partir de la línea 80. 


BO LET 8=0 
30 LET V=1 

100 FOR I=1 TO N 

110 LET S=8+C (1, V) 
130 NEXT 1 

130 LET X=5/N 

140 FRINT "MEDIA="+X 


La. variable V es la que establece el número de columna para el cual 
se calculará la media. Puesto que ahora sólo se suman los elementos de 
una columna, para calcular la media dividiremos únicamente por N (línea 
130). Para la columna 1 la media es 5.666 y para la segunda es 6.333. Tal 
como indican las Matemáticas, la media de las dos medias anteriores es 6 
y ha de coincidir con la media global. 

Para calcular la media de cada fila utilizaremos el mismo procedimiento 
pero cambiando los subíndices. De nuevo, sólo modificaremos la última 
parte del programa. Esta última parte queda: 


20 LET S=0 
90 LET F=1 

100 FOR J=1 TO M 

110 LET S=8+C(F, J) 
120 NEXT J 

130 LET X=S5/M 

140 FRINT "MEDIA="*X 


La variable F es la que establece el número de fila. En la línea 130, el 
valor de S se divide por M ya que cada fila tiene M elementos (en nuestro 
caso 2). 

Las medias aritméticas de cada fila son 7.5, 5 y 5.5. 


RESUMEN 


El procedimiento básico para manipular los conjuntos dimensio- 
nados es modificar un elemento. 
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La instrucción LET es la que nos permite modificar un elemento 
del conjunto. Se coloca en la parte izquierda de la instrucción, es decir, 
antes de la asignación, el nombre de la variable del conjunto dimen- 
sionado y entre paréntesis el subíndice que queremos modificar. 

En general, el método de seleccionar un elemento es válido para 
cualquier instrucción de BASIC. En INPUT, PRINT, cálculo, etc. 

La manipulación de listas y tablas suele estar ligada inseparable- 
mente a las instrucciones FOR/NEXT que se han estudiado en la lec- 
ción anterior. 

La razón de esta dependencia es que la instrucción FOR/NEXT 
está pensada para hacer acciones repetitivas y los conjuntos dimen- 
sionados son elementos todos iguales. Recuerde que la característica 
fundamental de los conjuntos dimensionados es la homogeneidad. 

La utilización de la variable de control de un bucle para expresar 
el subíndice de un conjunto dimensionado conlleva una reducción de 
instrucciones y una mayor flexibilidad. 

El esquema de manipulación de los conjuntos dimensionados 
está igualmente bien adaptado a la manipulación de variables textua- 
les o numéricas. 

El número de instrucciones FOR/NEXT asociadas a un conjunto 
dimensionado es normalmente el número de dimensiones. 

Se puede recorrer una lista con un bucle, se recorre una tabla 
con dos bucles, etc. 

La escritura de las listas y tablas se simplifica mucho con la uti- 
lización de los bucles y de la instrucción PRINT. 

Otra técnica básica para la manipulación de listas y tablas es el 
rastreo de todos los elementos y mediante la instrucción de decisión 
(IF... THEN) realizar o no una acción con el elemento. 

Un ejemplo consiste en encontrar el máximo de una tabla. 

En la realización de un rastreo de la tabla se pueden realizar ope- 
raciones que nos den información resumida de la tabla, por ejemplo, 
cálculo de totales, cálculo de sumas de filas o sumas de columnas, o 
incluso hallar valores medios. En general utilizaremos variables que 
se van modificando convenientemente a medida que pasamos por 
cada elemento de la tabla. 

La localización de los elementos de la tabla puede hacerse de 
dos maneras: 


— Por posición. Es la manera más simple y está en la misma esencia 
de lo que son los conjuntos dimensionados. Se pide cuál es el 
contenido del elemento que está en una posición determinada. 


— Por contenido. Se desea saber qué posición contiene un deter- 
minado valor. Es frecuente realizar este tipo de búsqueda con va- 
riables textuales pero también se da en variables numéricas. 

La propiedad más importante es que el resultado puede ser que 
lo que se busca se encuentre o no se encuentre. 

Este obliga a considerar la salida de un bucle FOR/NEXT me- 
diante un proceso de decisión. Cuando se alcanza la salida normal 
del bucle es señal de que lo que se busca no se ha encontrado. 
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EJERCICIOS DE AUTOCOMPROBACION 


Completar las frases siguientes: 


de un elemento es el procedimiento bá- 
sico para manipular los conjuntos dimensionados. 


. Las instrucciones son el complemento in- 
separable para el tratamiento de los conjuntos dimensionados. 


. Los subíndices de los conjuntos dimensionados se relacionan con 
frecuencia con la variable de de un bucle. 


. El número de FOR/NEXT que necesitamos para recorrer una ta- 
bla es igual al número de del conjunto di- 
mensionado. 


. La localización de los elementos de una tabla puede hacerse por 
posición o por 


Encierre en un círculo la respuesta que corresponda a la alter- 
nativa correcta. 


31. En el programa siguiente: 


10 DIM A(5) 

20 FORI=2T0O5 

30 LET A(l) = A(I-1)*2 
40 NEXT 1 


qué instrucción precisa para que la tabla A contenga la secuencia 1, 
2,4,8 y 16. 


a) 15 LET A(3)=2 
b) 15 LET A(1)=1 
Cc) 35 LET A(3)=2 
d) 35 LET A(1)=1 
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32. En el programa siguiente: 


10 
20 
30 
40 
50 
60 
70 
80 
90 


DIM A(5) 
FOR!=1T05 
LET A (1) = 2x1-4 
NEXT | 
LETS=0 
FORI|=1TO5 
LETS = S + All) 
NEXT | 

PRINT S/5 


¿Qué número escribe? 
a) 1 
b) 2 
Cc) 3 
d 4 


33. Sea el programa siguiente: 


10 DIM A(3,3) 

20 FOR|=1T03 
30 FOR J=1T03 
40 LETA(IJ) =1+J 
50 NEXT 1 

60 NEXT J 


¿Cuál es el valor de la tabla resultante? (Añádale las instruccio- 
nes que faltan para que le dé el resultado en pantalla en forma de 


tabla). 


a) 


b) 


0 unn 
o 00 
2h 
o 


AS) 
na 
oODn_- 
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c) 


SS) 
ON_A 
anaa0 


4 
5 
2 


any 
ZA + (YN 


(Se supone que la primera dimensión son las filas y la segunda 
las columnas). 


34. Si en el programa del ejercicio anterior se sustituye la línea 40 por 
40 LET A(l,J) = l-J 


¿Cuál es el valor de la tabla? 


a) 
EA 
2 0 3 
=1=3 0 
b) 
e! 
e 
8 9 10 
c) 
=|=2 
0: e 
0-4 0 
d) 
0 =$ =2 
1 04 
Ada E + 


(Se supone que la primera dimensión son las filas y la segunda 
las columnas). 
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35. En el programa siguiente: 


10 DIM A(3) 

20 LET A(1)=2:LET A(2)=1:LET A(3)=3 

30 FOR I= 1 TO 3 

40 FOR J= I+1 TO 3 

50 IF A(I) <= A(J) THEN GO TO 70 

60 LET T=A(I) : LET A(I)=A(J) : LET A(J)=T 
70 NEXT J 

80 NEXT | 


Después de ejecutar el RUN ¿Cuál es el valor de la lista A? 


a) 2,1,3 
b) 3,2,1 
c) 3,1,2 
d) 1,2,3 
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11.0 OBJETIVOS 


Este capítulo sigue con las instrucciones del BASIC que no son indis- 
pensables para programar pero que dan una comodidad, que a veces se 
convierte en necesidad. 

En la primera parte, se trata el problema de almacenar datos que son 
fijos. 

Muchas veces, en las aplicaciones deseamos tener un conjunto de da- 
tos memorizados que permiten eliminar la engorrosa tarea de la entrada 
cada vez que ejecutamos el programa. 

Esto sucede en tablas de nombres de artículos, precios, listas de alum- 
nos y así un sinfín de posibilidades. 

El BASIC dispone de un mecanismo para almacenar esta información 
en el propio programa sin tener que utilizar la instrucción LET cada vez. 

Estas instrucciones son el DATA, el READ y el RESTORE. 

El punto más importante es comprender el acceso a estos datos me- 
morizados, pues tiene unas características cuyo conocimiento es impres- 
cindible para hacerlo funcionar correctamente. Además, este mecanismo 
tiene aplicaciones más amplias, que estudiaremos en capítulos posteriores. 

Los ejemplos tratan el problema de la búsqueda por nombre. Tenga 
en cuenta que el 90 % de la programación consiste en buscar cosas en 
tablas. 

En conclusión, aunque el capítulo está dedicado a enseñar la utilización 
de las instrucciones DATA, READ y RESTORE contiene el embrión de mé- 
todos muy generales en informática. 

Ponga atención en la forma de utilizar las instrucciones y también en 
los métodos utilizados en los ejemplos. 

En la segunda parte se introduce una herramienta que resulta muy útil 
en programas en que un cálculo relativamente complejo se utiliza muchas 
veces. Se trata de las funciones definidas por el programador. 

Las funciones intrínsecas que hemos visto en el capítulo 3 del primer 
tomo permiten hacer cálculos complicados con comodidad. 

¿Ha considerado alguna vez cómo tendria que hacer un programa que 
sacara la raíz cuadrada sin utilizar la función SQR? 

Si reflexiona un poco verá que no es sencillo. 

Cuando se nos presentan estos cálculos complicados y repetitivos es 
cómodo poder definir funciones que nos den el resultado sin tener que re- 
petir la escritura de las operaciones que lo originan en muchos sitios del 
programa. 

Estudie con detalle este mecanismo, pues su repercusión es mucho 
más amplia que la que pone de manifiesto el BASIC. 

Hay lenguajes de programación que basan toda su potencia precisa- 
mente en la definición de funciones por el propio programador. 

La comprensión de las funciones definidas, aparte de utilizar este re- 
curso del BASIC, le servirán para entender ciertos puntos de la ciencia in- 
formática. 


E 
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Datos fijos y datos variables 
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11.1 COMO ALMACENAR DATOS EN UN PROGRAMA 


Hemos visto dos maneras de asignar valores a una variable dentro de 
un programa. Para ello, conocemos dos instrucciones, que son la instruc- 
ción INPUT y la instrucción LET. 

Como ya sabemos, la instrucción INPUT nos permite introducir —al 
tiempo de ejecución— el valor que debe tomar la variable. Este valor puede 
ser distinto cada vez que se ejecute el programa. 

Por otra parte, la instrucción LET sirve para asignar un valor fijo a una 
variable. 

La elección entre ambas instrucciones dependerá de las posibilidades 
de variación del valor a asignar. 

Vamos a verlo mediante un ejemplo. Supongamos que necesitamos 
un programa para calcular la media de las notas de los alumnos de una 
clase. Supondremos que la clase consta únicamente de 5 alumnos, para 
evitar que el programa se alargue demasiado. Sin embargo, veremos que 
el programa resulta fácilmente adaptable a un número cualquiera de alum- 
nos (mayor o menor). 

En el programa, hay una serie de datos fijos (el nombre de los alumnos, 
que a lo largo de todo un curso es el mismo) y un conjunto de datos varia- 
bles (las notas obtenidas en cada examen). 

El programa estará constituido por varias partes. En primer lugar, de- 
berá leer y asignar a una variable el nombre de cada alumno, y permitir que 
el usuario introduzca la nota correspondiente a cada uno de ellos. 

Por otra parte, una vez conocidas todas las notas, realizaremos el cál- 
culo de la media, y por último, escribiremos la lista completa con las notas 
y el resultado obtenido. 

De cara a manipular los nombres con comodidad, los asignaremos a 
un conjunto dimensionado, que en este caso constará de 5 elementos. Lo 
mismo haremos con los valores de las notas. El programa para ello será: 


10 REM LISTA DE NOTAS Y DETERMINACION DE LA MEDIA 

ZO REM Asignacion del numero de alumnos (NA) 

30 LET NA = 5 

40 REM Dimensionado del conzunto alumnos (N$) y notas (T) 
SO DIM N$(NA), T(NA) 

60 REM Lectura de los nombres 


70 LET N$(1)="Fernandez" 

Bo LET N$(2)="Garcia” 

30 LET N$(3)="Lopez" 

100 LET N$(4)="Rodriguez" 

110 LET N$(5)="Sanchez" 

120 REM Entrada de las notas de cada alumno 
130 LET S=0 2 CLS 

140 FOR] = 1 TO NA 

150 FRINT "Entre la nota de ":N$(1); 
160 INPUT TC) 

170 LETS =8+T(1) 

1890 NEXT 1 

190 REM Escritura de resultados 

200 LS 1 PFRINT "LISTA DE NOTAS" : PRINT 
210 FOR 1 = 1 TO NA 

220 ERINT N$(1):" "3TC1) 
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Dificultad en mantener 
el orden cuando hay 
una adición 


230 NEXT 1 
240 ERINT : PRINT "LA MEDIA ESt ";S/NA 
250 END 


El funcionamiento del programa es el siguiente: una vez conocidos los 
nombres de cada alumno —líneas 70 a 110—, se introduce la nota corres- 
pondiente —líneas 140 a 180— y simultáneamente se realiza la suma de 
cada una de las notas que se van introduciendo, en un acumulador (S) que 
previamente se habrá igualado a cero —línea 130—. De esta forma, pre- 
paramos el cálculo posterior de la media, que se obtendrá sumando las 
notas de cada alumno y dividiendo por el número total de alumnos. La úl- 
tima fase, tal como se indica en el propio programa, corresponde a la im- 
presión de la lista completa (nombre de cada alumno, junto con la nota 
obtenida) así como del valor de la media. 

De esta forma, cada vez que se deba confeccionar una lista bastará 
con introducir las notas, ya que dentro del propio programa mantenemos 
los nombres almacenados, y en orden alfabético. 

Sin embargo, si el número de alumnos fuera muy grande (50, 60, 
100, ...), necesitaríamos un gran número de instrucciones de asignación, y 
además, cada vez que se tuviera que intercalar un elemento, para mantener 
el orden alfabético, se deberían modificar todas estas instrucciones, a partir 
de la que se haya debido intercalar. Por ejemplo, supongamos que hay que 
añadir el nombre de un alumno que empiece por H, por ejemplo, Hernán- 
dez. Este nombre deberá ocupar la tercera posición de la lista. Habrá que 
intercalar, pues, la instrucción: 


as LET N$(3)="Hernandez" 


y modificar las restantes a partir de ésta, que deberán quedar: 


30 LET N$(4)="Lopez" 
100 LET N$(3)="Rodriguez" 
110 LET N$é(6)="Sanchez" 


Hay que modificar también la línea 30, ya que el número de alumnos 
es ahora de seis. Por tanto quedará ahora: 


30 LET NA = 6 


El listado completo será pues: 


10 REM LISTA DE NOTAS Y DETERMINACION DE LA MEDIA 

20 REM Asignacion del numero de alumnos (NA) 

30 LET NA = 6, 

40 REM Dimensionado del conzunto alumnos (N$) y notas (T) 
50 DIM N$(NA), T(NA) 

50 REM Lectura de los nombres 
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70 LET N$(1)="Fernandez" 
10) LET Né$(2)="Garcia" 
as LET N$(3)="Hernandez" 


30 LET N$(4)="Lopez” 
100 LET N$(5)="Rodriguez” 
110 LET N$(6)="Sanchez" 


120 REM Entrada de las notas de cada alumno 
130 LET S=0 3: CLS , 
140 FOR I = 1 TO NA 


¿50 FRINT "Entre la nota de "2:N$(1):5 
160 INPUT TI) 

170 LETS =.8 + T(I) 

1890 NEXT 1 


190 REM Escritura de resultados 
200 CLS 2 PFRINT "LISTA DE NOTAS" 3 PRINT 
210 FOR 1 = 1 TO NA 


220 PRINT N$(I)5" "5T(1) 

230 NEXT 1 : 

240 ERINT O: PFRINT "LA MEDIA ES: "¡5/NA 
2530 END 


Esto ya resulta engorroso, pero si el número de alumnos es grande 
cualquier modificación de la lista puede resultar muy pesada. 

Por esta razón, existe en BASIC un mejor sistema de mantener datos 
almacenados en el programa. Para ello se utilizan dos instrucciones que 
vamos a conocer a continuación. Estas instrucciones son la instrucción 
DATA y la instrucción READ. 

En los ejemplos que veremos para conocer la aplicación de estas ins- 
trucciones, utilizaremos conceptos que hemos visto en secciones ante- 
riores. 


— 


11.1.1 La instrucción DATA 


Esta instrucción sirve para almacenar datos dentro de un programa. Se 
escribe la palabra DATA, y a continuación la lista de datos a almacenar, 
separados por comas. 

Esta palabra es inglesa, aunque de origen latino y corresponde al plural 
latino de la palabra «datos». 

Estos datos pueden ser numéricos o alfanuméricos, es decir, podemos 
almacenar números o palabras, indistintamente y en cualquier orden. 

Las instrucciones DATA pueden escribirse en cualquier parte del pro- 
grama, al principio, al final o intercaladas con las restantes instrucciones. 

Sin embargo, de cara a una mejor organización, y para hacer que el 
programa sea más legible, suelen situarse todas juntas al final del mismo. 
Se pueden escribir tantas instrucciones DATA como sean necesarias. 

Cada instrucción DATA —como todas las instrucciones de BASIC— 
puede tener una longitud máxima de 255 caracteres. Sin embargo, no es 
necesario escribir todos los datos en una sola instrucción. Podemos escri- 
birlos en varias instrucciones, tantas como sean necesarias, ya que no hace 
falta que cada instrucción DATA tenga la máxima longitud. 
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El orden de los datos 
debe mantenerse 


Dos tipos de los datos 
pueden mezclarse 


Sin embargo, sí que debe mantenerse —se escriban los datos donde 
se escriban—, el orden de los mismos. El almacén se puede considerar 
continuo desde la primera hasta la última instrucción DATA. Para leer un 
valor situado en un punto determinado de la lista, habrá que leer todos los 
valores situados antes que él en el almacén. 

Veamos algunos ejemplos. Supongamos que queremos almacenar 
tres datos cualquiera, por ejemplo los tres números siguientes: 25, 3 y 2567. 
Para ello escribiremos: 


10 DATA 25, 3, 2567 


Si quisiéramos almacenar tres palabras, por ejemplo DINOSAURIO, 
AUTOBUS y PARAGUERO, podríamos escribir: 


10 DATA "DINOSAURIO", "AUTORUS", "FARAGUERO" 


No hace falta que los datos que se almacenan mediante instrucciones 
DATA sean del mismo tipo, sino que pueden tener datos numéricos y al- 
fanuméricos mezclados. Así, podemos almacenar los números y las pala- 
bras de los dos ejemplos anteriores mezclados, por ejemplo de la siguiente 
forma: 


10 DATA 25, "DINOSAURIO", 3, "AUTOBUS", 2657, "PARAGUERO" 


Observe que hemos escrito los datos alfanuméricos entre comillas, y 
los datos numéricos sin ellas. Hemos escrito los datos en un orden deter- 
minado, que hemos escogido al azar. Insistimos en que el orden en que se 
almacenan los datos puede ser cualquiera, pero debe tenerse muy en 
cuenta en el momento de leerlos, de forma que por una parte coincida el 
tipo de variable que se lee con el tipo de dato almacenado, y por otra parte, 
sepamos en cada momento la correspondencia entre lo que está almace- 
nado, y el lugar que ocupará en el programa cuando se lea, es decir, la 
variable a la que se va a asignar. 

Si quisiéramos almacenar los cinco nombres de los alumnos de la clase 
en el programa para confeccionar listas de notas que hemos visto antes 
podremos hacerlo, ya sea de esta forma: 


1000 DATA "Fernandez", "Garcia”, "Rodriguez”, "Lopez", "Sanchez" 


O bien: 


1000 DATA "Fernandez" 
1010 DATA "Garcia" 


Fuentes de error en la 
utilización del READ 
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1020 DATA "Lopez" 
1030 DATA "Rodriguez" 
1040 DATA "Sanchez" 


O bien con cualquier otra forma de agrupar los nombres (dos, dos y 
uno, O bien tres y dos...). Lo importante es mantener siempre el orden co- 
rrecto, que en este caso debe ser el orden alfabético. 

Veamos ahora cómo leer los datos almacenados. 


11.1.2 La instrucción READ 


Esta instrucción sirve para leer los datos almacenados mediante una 
o varias instrucciones DATA. Se escribe la palabra READ, y a continuación 
la lista de variables a las que se van a asignar los valores almacenados, 
separados por comas. 


READ significa «leer» 


A la lista de variables que sigue a la palabra READ, se le asigna uno 
a uno, los valores contenidos en el almacén. Pueden tenerse tantas ins- 
trucciones READ como se quiera, es decir, no es necesario leer de una 
sola vez todos los valores almacenados, sino que cada vez que se en- 
cuentra una instrucción READ seguida de una lista de variables, se leen 
tantos valores como número de variables contenidas en la instrucción 
READ. 

Una vez que se ha asignado un valor, el ordenador lo «retira» del al- 
macén, y a la próxima variable situada en una instrucción READ, se le asig- 
nará el valor siguiente al último leído. 

Deben tenerse en cuenta dos cosas muy importantes: 


1a) El tipo de variables ha de coincidir con el tipo de valor almacenado. 
— Si el valor es alfanumérico la variable debe ser textual. 


— Si el valor es numérico, la variable podrá ser numérica o textual. Evi- 
dentemente si la variable es textual, no se toma el valor numérico como 
tal, sino como texto. 


2a) El número de elementos almacenados ha de coincidir —o en todo 
caso ser superior— al número de variables que siguen a una instrucción 
READ. Los valores se asignarán uno a uno a cada variable a leer. Si hay 
más valores en el almacén, no se produce ningún problema, simplemente 
no se asignan los valores que sobran. Sin embargo, si el número de ele- 
mentos almacenados es menor, se produce un error y se detiene el pro- 
grama. 


En cierta forma, podemos considerar la instrucción READ semejante a 
la instrucción INPUT. La diferencia entre ambas reside en el lugar de donde 
se lee el valor de la variable. Cuando hacemos un INPUT, el programa 
asigna a la variable el valor que le introduzcamos por el teclado. Cuando 
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hacemos un READ, el valor asignado a la variable es el que corresponda 
del almacén. 

Veamos cómo leer e imprimir valores que tengamos almacenados. 

En primer lugar veremos cómo leer los tres números: 25, 3 y 2567 que 
habíamos almacenado mediante una instrucción DATA, y una vez leídos, 
los imprimiremos. El programa para ello será: 


NEW . 

10 DATA 25, 3, 2567 
20 READ Ni, N2, N3 
30 ERINT Ni, N2, N3 


Podremos ver que aparecen los tres números escritos en la pantalla. 

Supongamos ahora que añadimos una nueva instrucción DATA, con 
las tres palabras almacenadas: DINOSAURIO, AUTOBUS y PARAGUERO, 
sin modificar el programa de momento. Si escribimos por ejemplo: 


13 DATA "DINOSAURIO", "AUTOBUS", "PARAGUERO" 


y ejecutamos el programa, veremos que de nuevo aparecen en pantalla los 
mismos números que en el caso anterior. Esto es así, porque sólo leemos 
tres valores (los que se leen en la instrucción 20), y los otros tres —co- 
rrespondientes a la segunda instrucción DATA, que contiene los nombres— 
no se leen. Si deseamos leerlos también y escribirlos, añadiremos dos ins- 
trucciones. La primera será: - 


25 READ AS, B$, 0$ 
y la segunda será: 


35 PRINT As, ES, C$ 


El programa quedará ahora: 


10 DATA 25, 3, 2567 
15 DATA "DINOSAURIO", "AUTORUS", "FARAGUERO" 
ZO READ Ni, N2, N3 ? 

25 READ AS, B$, C$ 

30 FRINT Ni, N2, N3 

35 £RINT AS, Es, 0% 
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Concepto de lectura 
secuencial 


Ejecutando ahora el programa, veremos en pantalla: 


25 3 2567 
DINOSAURIO AUTOBUS PARAGUERO 


De esta forma se leerán los seis valores almacenados y se escribirán, 
primero los tres números y después las tres palabras. 

Si los hubieramos almacenado mezclados, deberíamos leerlos también 
mezclados. Así, por ejemplo, podríamos tener: 


10 DATA 25, "DINOSAURIO", 3 

20 DATA "AUTORUS", 2567, "PARAGUERO" 
30 READ Ni, As 

40 READ Nz, E$ 

50 READ N3, C$ 

60 PRINT— Ni; A$3 NZ2s E$s N3: Cs 


Observe el efecto de este programa ejecutándolo. Aparecerá escrito 
en pantalla: 


25 DINOSAURIO 3 AUTORUS 2567 FARAGUERO 


Es importante ver que hemos utilizado más de una instrucción DATA 
para almacenar los datos, y que vamos leyéndolos conforme los necesi- 
tamos, independientemente de como estén almacenados. Así, la primera 
instrucción READ lee los dos primeros valores del almacén —un número y 
una palabra—, la segunda los dos siguientes, y la tercera los dos últimos. 
Aunque hemos escrito tres valores —número, palabra y número— en la 
primera instrucción DATA y tres más en la segunda —palabra, número, 
palabra—. 

Es en este sentido en el que decimos que el almacén es continuo, 
aunque lo hayamos escrito utilizando varias instrucciones DATA, y que se 
lee de forma secuencial: un dato a continuación del otro. 

Vamos a ver con el ejemplo de la lista de alumnos de una clase, la 
forma de utilizar las instrucciones DATA y READ. El listado del programa 
será en este caso: 


NEW 
10 REM LISTA DE NOTAS Y DETERMINACION DE LA MEDIA 
ZO REM Asignacion del numero de alumnos (NA) 


30 LET NA = 5 
40 REM Dimensionado del conzunto alumnos (N$) y notas (T) 
50 DIM N$(NA), T(NA) 


60 REM Lectura de los nombres 
7O FOR 1 = 1 TO NA 
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Bucle para la lectura 
del almacén en DATA 


Bo READ N$(1) 

30 NEXT 1 

120 REM Entrada de las notas de cada alumno 
130 LET S=0 3 CLS ! 

140 FOR 1 = 1 TO NA 

150 PRINT "Entre la nota de ":N$(1); 
160 INPUT T(1) 

170 LET.S = S + TC1) 

190 MEXT I 


190 REM Escritura de resultados 
200 CLS 2: £RINT "LISTA DE NOTAS" : PRINT 


210 FOR I = 1 TO NA 

220 FRINT N$(1)3" ":T (1) 

230 NEXT 1 

240 ERINT : PRINT "LA MEDIA ES: ":S5/NA 
250 END 


1000 DATA "Fernandez" 
1010 DATA "Garcia" 
1020 DATA "Lopez" 
1030 DATA "Rodriguez" 
1040 DATA "Sanchez" 


En este caso, podemos hacer la lectura mediante un bucle, con lo cual 
reducimos a tres el número de instrucciones, ya que evitamos todas las 
asignaciones. 

El funcionamiento de un bucle ya lo conocemos. En primer lugar se 
asignará a la variable | el valor inicial. A continuación se ejecutará la ins- 
trucción READ. Dado que es la primera vez que se ejecuta, asignará como 
primer elemento de la variable N$, el primer valor almacenado en la primera 
instrucción DATA del programa. En este caso este valor es el apellido Fer- 
nández, tendremos pues: 


LET N$(1) = "Fernandez" 


La instrucción NEXT nos remite al principio del bucle de nuevo. Deberá 
leerse ahora el valor de N$(2). El programa tomará ahora el segundo dato 
del almacén —García—, por tanto: 


LET N$(2) = "Garcia” 


El bucle se irá ejecutando de esta forma hasta asignar los cinco valores 
a la variable N$. 

Vemos pues, que se han reducido el número de instrucciones de asig- 
nación. De esta forma, con un bucle de este estilo, podremos realizar la 
asignación de todos los elementos, sea cual sea el número de éstos. 

Por otra parte, hemos añadido las instrucciones que contienen los da- 
tos. Estas instrucciones suelen numerarse con valores más altos que los 
que les correspondería en orden correlativo, de cara a posibles modifica- 
ciones que se puedan producir en el programa. De esta forma, aunque el 
programa se haga más largo, el almacén queda siempre situado al final del 
mismo, y agrupado. 
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Por otra parte, hemos escrito los nombres de uno en uno, pues si hay 
que intercalar un nombre —por ejemplo Hernández— bastará añadir una 
instrucción DATA con el número de línea correspondiente. En este caso, 


escribiriamos: 


1015 DATA "Hernandez" 


Modificando ahora el número total de alumnos, NA, ya podremos uti- 
lizar el programa para efectuar listas. Así, deberemos variar la línea 30: 


30 LET NA=65 


El listado completo quedará ahora: 


1000 
1010 
1015 
1020 
1030 
1040 


REM LISTA DE NOTAS Y DETERMINACION DE LA MEDIA 
REM Asignacion del numero de alumnos (NA) 
LET NA = 6 
REM Dimensionado del conjunto alumnos (N$) y notas (T) 
DIM N$(NA), TINA) 
REM Lectura de los nombres 
FOR 1 = 1 TO NA 
READ N$(1) 
NEXT I 
REM Entrada de las notas de cada alumno 
LET S=*0 1 CLS 
FOR 1 = 1 TO NA 
PRINT "Entre la nota de ":NS(1); 
INPUT T(I1) ' 
LETS 2 S + T(I) 
NEXT 1 
REM Escritura de resultados 
CLS : PRINT "LISTA DE NOTAS" : FRINT 
FOR I = 1 TO NA 
FRINT NS$(1);" ":;T(I1) 
NEXT 1 
FRINT 2: PRINT "LA MEDIA ES: ";S/NA 
END 
DATA "Fernandez" 
DATA "Garcia" 
DATA "Hernandez" 
DATA "Lopez" 
DATA "Rodriguez" 
DATA "Sanchez" 


Compruebe el funcionamiento del programa ejecutándolo. 

Hemos visto hasta ahora que cuando se ha de almacenar un valor al- 
fanumérico lo hemos escrito siempre entre comillas. Algunos modelos de 
ordenadores permiten suprimirlas, es decir, que se pueden escribir los nom- 
bres omitiendo las comillas. Si esto es posible en su ordenador particular, 


ya lo sabe por el capítulo de prácticas. 
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La supresión de las comillas 


Los blantos al principio 
de un dato 
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Si la máquina lo permite, escribir los nombres sin comillas puede re- 
sultar práctico; sin embargo debe tenerse en cuenta que esto no se puede 
hacer en todos los casos. Veamos un ejemplo. 

Supongamos ahora, que deseamos el nombre completo de cada 
alumno, es decir, el primer apellido, el segundo apellido y el nombre. 

Los nombres suelen escribirse en estos casos de esta forma: 


1.* Apellido 2.” Apellido, Nombre 


En principio, bastará añadir los correspondientes datos en la lista del 
almacén. Deberemos, pues, modificar las instrucciones desde la línea 1000 
a la 1040. Quedaría por ejemplo: 


1000 DATA "Fernadez Prats, Javier" 
1010 DATA "Garcia Valls, Elena" 
1015 DATA "Hernadez Ros, Fedro" 
1030 DATA "Lopez Juan, Ana" 

1030 DATA "Rodriguez Cots, Olga" 
1040 DATA "Sanchez Robles, Miguel” 


Pero suponiendo que la máquina lo permitiera, si en este caso no es- 
cribiéramos los nombres entre comillas, se produciría un problema a la hora 
de interpretar cada valor por la máquina, ya que, como sabemos, las comas 
sirven para separar cada uno de los valores almacenados. Por esta razón, 
el primer nombre que la máquina tomaría sería Fernández Prats, el si- 
guiente sería Javier, el siguiente García Valls, etc. 

Por tanto, cuando se desean incluir comas en el texto, se debe escribir 
éste entre comillas, aun en el caso de que la máquina permita omitirlas. Lo 
mismo sucede si se quieren escribir blancos al principio del texto. 

En todo caso, debe tenerse en cuenta que el programa intentará leer 
y asignar los datos del almacén siguiendo el proceso lógico, mientras le sea 
posible. 

Por otra parte, en este ejemplo, hemos utilizado una variable dimen- 
sionada para almacenar los datos, ya que nos resulta más práctico. Sin 
embargo, puede hacerse la lectura de los valores almacenados en un DATA 
utilizando variables con nombres distintos. Así vamos a verlo con un ejem- 
plo. Construiremos un programa traductor muy simple, de forma que al es- 
cribir una palabra en castellano, nos dé la correspondiente en inglés, o un 
mensaje indicativo, si no conoce la palabra. 

Un listado para este caso podría ser: 


NEW 

10 REM TRADUCTOR CASTELLANO- INGLES 

20 REM Introduccion de la palabra 

30 INEUT "Que palabra desea traducir? ", PS 

40 REM Traduccion 

50 READ ES, Ts 

60 IF Es="FIN" THEN GOTO 100 

70 IF ES(ES THEN GOTO 50 

80 PERINT "La palabra ":£$;" se traduce por ";T$ 


El marcador del final 
del almacén 
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90 SOTO 110 
100 SRINT "No conozco esta palabra" 
110 END 
1000 DATA "HOLA”, "HELLO" 
1010 DATA "ADIOS", "GOOD BYE" 
1020 DATA "BUENOS DIAS", "GODD MORNING" 
1030 DATA "LAFIZ", "PENCIL.” 
1040 DATA "MESA", "TABLE" 
1050 DATA "FIN", "" 


Observe el funcionamiento de este programa. En el almacén existe un 
número de palabras traducidas, en este caso únicamente cinco, sin em- 
bargo, sin efectuar ninguna modificación adicional en el programa, podría- 
mos alargar el almacén tanto como quisiéramos, mientras nos lo permitiera 
la memoria de la máquina. 

Esto se puede hacer por la forma en que hemos construido el pro- 
grama. El funcionamiento de éste es muy simple. Una vez introducida la 
palabra a traducir, el programa empieza a buscarla en el almacén. La bús- 
queda se realiza de forma lineal, leyendo de dos en dos los valores al- 
macenados. El primero que leemos corresponde a la palabra en castellano 
(E$), y el segundo es la traducción de la misma en inglés (T$). Esta bús- 
queda finaliza por dos razones, o bien porque se ha encontrado la palabra 
que se busca, con lo que se escribe ésta y su traducción, o bien porque se 
han leído todas las palabras del almacén. 

Para indicar el final del mismo, se escribe como valor último la palabra 
FIN, y cada vez que se efectúa una lectura, se comprueba si se ha llegado 
al final. Si es así, es que no hemos encontrado la palabra, con lo que damos 
el mensaje correspondiente. 

Nótese que después de la palabra FIN hemos escrito un dato nulo. Lo 
hacemos así porque cada vez que efectuamos una lectura, necesitamos 
dos valores. Si no lo escribiéramos, y termináramos con la palabra FIN, 
tendríamos un error en la última lectura pues nos faltaría un valor, ya que 
leemos los valores de dos en dos, y necesitamos siempre un número par 
de éstos. 

De esta manera, podríamos conocer la traducción de cualquier palabra, 
excepto la de la propia palabra FIN. Si quisiéramos que el programa la in- 
cluyera, deberíamos utilizar otra marca de final. Por ejemplo, usando el as- 
terisco (*). Así, podríamos modificar la línea 60: 


60 IF Ef$="x" THEN GOTO 100 
y la 1050: 


1050 DATA "FIN", "END” 
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Finalmente deberíamos añadir la nueva marca de final: 


1060 DATA "*","" 


El programa quedará ahora: 


NEW 
10 REM TRADUCTOR CASTELLANO- INGLES 
20 REM Introduccion de la palabra 
30 INPUT "Que palabra desea traducir? ",P$ 
40 REM Traduccion 
50 READ ES, TS 
60 IF Es="*" THEN GOTO 100 
70 ¡F PS()ES THEN GOTO 50 
10) PRINT "La palabra ";F$;" se traduce por ":T$% 
390 GOTO 110 
100 SRINT "No conozco esta palabra" 
110 END 
1000 DATA "HOLA", "HELLO" 
1010 DATA "ADIOS", "GOOD BYE” 
1020 DATA "BUENOS DIAS”, "GODD MORNING” 
1030 DATA "LAPIZ", "PENCIL"” 
1040 DATA "MESA”, "TABLE" 
1050 DATA "FIN", "END” 
1060 DATA “*” vu" 


En este caso hemos escogido un carácter —que puede ser cual- 
quiera— de forma que no interfiera con las palabras a traducir. Ejecute 
ahora el programa, y si introduce la palabra FIN, obtendrá la correspon- 
diente traducción. 

Parecería útil, por otra parte, construir el programa de forma que cada 
vez que se ejecute se puedan traducir tantas palabras como se desee, sin 
necesidad de realizar una nueva ejecución para cada palabra. 

Podríamos modificar el programa de forma que sea el propio usuario 
el que dé la indicación de continuar o finalizar. Para ello bastaría añadir o 
modificar las instrucciones: 


110 INPUT "DESEA CONTINUAR (S/N)i2 ", R$ 
120 IF R$="S5" THEN GOTO 30 
130 END 


De esta forma, una vez realizada la búsqueda de una palabra, el propio 
programa permitiría continuar. 

Realice la prueba introduciendo en primer lugar una palabra que sepa 
seguro que no está en el almacén, por ejemplo DINOSAURIO. Observará 
que el programa indica que no conoce la traducción de esta palabra, y a 
continuación le pregunta si desea continuar. 

Pulse una «S» para responder afirmativamente, y escriba otra palabra 


Se ha alcanzado el final del 
DATA y posteriormente se 
comete el error de leer 


Semejanza de las 
instrucciones DATA, READ y 
RESTORE a una cinta 
magnética 
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cualquiera. Inmediatamente la máquina le dará error, y se detendrá el pro- 
ceso. 

¿A qué se debe esto? Intente pensar la respuesta antes de seguir le- 
yendo. 

Si recuerda lo que hemos dicho del funcionamiento de las instrucciones 
READ, encontrará la razón de lo sucedido. Veámoslo paso a paso. Cuando 
ejecutamos el programa por primera vez, el programa empieza a buscar la 
palabra introducida, para lo cual va recorriendo el almacén, leyendo los va- 
lores de dos en dos. Dado que la palabra que hemos escrito (DINOSAU- 
RIO) no se encuentra en el «diccionario» que tenemos construido, el pro- 
grama recorre todo el almacén hasta encontrar y leer el símbolo «*» que 
marca el final del mismo. En este punto nos da el mensaje correspondiente, 
y nos pide si deseamos continuar. Al responder nosottos afirmativamente, 
nos pregunta la nueva palabra a buscar, e intenta hacer una nueva lectura 
en el almacén. Pero, tal como hemos visto, en la vuelta anterior ya lo había 
recorrido todo, por tanto, no encuentra el siguiente valor a leer, así que nos 
da el mensaje de error correspondiente y se detiene. 

¿Cómo podemos solucionar este problema? Evidentemente podríamos 
escribir RUN —ejecutar el programa— cada vez que deseemos conocer 
una palabra, pero esto no parece muy práctico. En la siguiente sección ve- 
remos una instrucción que nos permitirá solucionar este problema. 


11.1.3 La instrucción RESTORE 


Esta instrucción sirve para reinicializar la lectura del almacén, es decir, 
situarnos en las condiciones iniciales, de forma que al ejecutar una ins- 
trucción READ, sea cual sea el último valor leído, asigne a la variable co- 
rrespondiente el primer valor almacenado en el mismo. 

La palabra RESTORE se puede traducir por «restaurar» las condicio- 
nes iniciales, «reiniciar». 

En un sentido estricto, significa rebobinar, refiriéndonos a una cinta 
magnetofónica. Si consideramos la estructura y el funcionamiento de las 
instrucciones DATA, veremos que es semejante al de aquélla. 

En primer lugar, hemos dicho que el almacén constituido por las ins- 
trucciones DATA se pueden considerar continuo, desde la primera hasta la 
última instrucción DATA. En segundo lugar, vemos que no podemos ac- 
ceder a un punto intermedio de la misma sin pasar previamente toda la cinta 
situada antes que él. Además, no podemos seguir leyendo una vez se ha 
llegado al final. Para volver a leer debemos rebobinar. Este es el sentido 
de la instrucción RESTORE. En este aspecto, hace referencia a la vuelta 
a las condiciones iniciales, la vuelta al principio del almacén. 

La situación de esta instrucción dentro del programa es un hecho im- 
portante para manipular correctamente los datos almacenados.-De hecho, 
todas las instrucciones deben estar en su sitio para que el programa trabaje 
armónicamente. 

Veamos con un ejemplo cuál es el efecto de situar incorrectamente 
esta instrucción. Escribámosla para ello entre las líneas 50 y 60: 


55 RESTORE 
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BA ____——————— A 
Ejecutemos ahora el programa, y escribamos una palabra cualquiera, 
por ejemplo DINOSAURIO. Observaremos que el programa cae en un bucle 
sin final; para recuperar el control deberemos pulsar la tecla de interrupción 
correspondiente. 

¿A qué se debe lo sucedido? 

Una vez hemos introducido la palabra el problema efectúa la lectura 
del almacén. Dado que es la primera vez que ejecutamos la instrucción 
READ, se leerá el primer par de valores (en este caso HOLA y HELLO). A 
continuación se ejecuta la instrucción RESTORE, cuyo efecto no se nota 
momentáneamente. Dado que la palabra leída en el almacén es distinta de 
la marca de final, y que además es distinta de la palabra introducida, el 
programa nos remite de nuevo a la línea 50. En este punto se efectúa una 
nueva lectura del almacén. ¿Pero qué valores son los que se leen? Dado 
que hemos ejecutado previamente una instrucción RESTORE, los valores 
que toca leer son de nuevo los primeros del almacén (HOLA y HELLO). Ya 
que no hemos encontrado el fin del almacén y que sigue sin ser igual a la 
palabra introducida, volveremos de nuevo a la línea 50, habiendo ejecutado 
naturalmente la instrucción RESTORE situada en la línea 55 y así seguirá 
en un proceso sin fin. 

De esta manera, no tenemos posibilidad de salir del círculo en el que 
hemos entrado, y nos vemos obligados a forzar la interrupción del mismo. 

Sin embargo, situando la instrucción en el lugar adecuado, podremos 
utilizar el programa sin problemas para traducir todas las palabras que que- 
ramos. Así, borraremos la línea 55, y escribiremos: 


115 RESTORE 


El listado compieto nos quedará ahora: 


10 REM TRADUCTOR CASTELLANO-INGLES 

ZO REM Introduccion de la palabra 

30 INFUWT "Que palabra desea traducir? ",F$ 

40 REM Traduccion 

50 READ ES, T*% 

60 IF Es="x*" THEN GOTO 100 

7O 1F E$()E$ THEN GOTO S0 

80 FRINT "La palabra ";¡F$:" se traduce por ";T$ 

30 GOTO 110 

100 FERINT "No conozco esta palabra” 

110 INFENT "Desea continuar? (S/N)3 ", R$ 
115 RESTORE 

120 1F R$="S"” THEN GOTO 30 

1:50 END 
1000 DATA "HOLA", "HELLO" 
1010 DATA "ADIOS", "GODD EKYE” 
1020 DATA "BUENOS DIAS", "GOOD MORNING” 
1030 DATA "LAPIZ", "PENCIL" 
1040 DATA "MESA", "TARLE" 
1050 DATA "FIN", "END" 
1060 DATA £” *, "nu 
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Compruebe ahora el correcto funcionamiento del programa. 


RESUMEN 


Los datos que utiliza un programa son fijos o variables. Se en- 
tienden por datos fijos aquellos que no varían con el tiempo, por ejem- 
plo, los nombres de los alumnos. 

Se entienden por datos variables aquellos que varían cada vez 
que ejecutamos el programa, por ejemplo, las notas. 

Evidentemente no hay ningún dato absolutamente fijo, los nom- 
bres de los alumnos varían de curso en curso. 

Sin embargo, se puede decir que son fijos porque tienen el mismo 
valor al ejecutarse muchas veces el mismo programa. 

Una técnica para introducir estos datos fijos es mediante el IN- 
PUT; tiene los inconvenientes de tener que teclear cada vez listas más 
o menos largas y sobre todo es posible equivocarse. 

Otra manera es colocar instrucciones LET para asignar estos va- 
lores fijos. La técnica es engorrosa cuando hay que añadir algún 
nuevo elemento y, en general, obliga a modificar muchos más ele- 
mentos debido a que deseamos que guarden un orden determinado. 

El BASIC tiene una serie de instrucciones preparadas para ma- 
nipular estos casos. Son tres: el DATA, el READ y el RESTORE. 

La instrucción DATA sirve para almacenar los datos en el propio 
programa. 

Su formato es el nombre DATA seguido de uno o más datos se- 
parados por comas. El límite viene impuesto por la longitud de la línea 
únicamente. 

Los datos dentro de una instrucción DATA pueden ser de cual- 
quier tipo y estar mezclados. 

Las instrucciones DATA pueden colocarse en cualquier parte del 
programa aunque es recomendable hacerlo al final o al principio. Si 
los datos no caben en una sola instrucción pueden utilizarse varias. 
En este caso, es importante que el orden de la numeración de las 
líneas siga el orden que establecemos para los datos. 

Este orden es importante pues para acceder a uno determinado 
es necesario leer todos los anteriores. 

La instrucción READ es la que permite leer los datos situados en 
las instrucciones DATA. 

La instrucción READ es semejante a la instrucción INPUT, pero 
en lugar de leer del teclado, lee de las instrucciones DATA. 

Después de la palabra READ aparecen los nombres de las va- 
riables separados por comas. 

El mecanismo de lectura consiste en leer el dato que está pre- 
parado en la instrucción DATA. Cuando es la primera lectura, el dato 
es el primero de la instrucción DATA que tiene la numeración más 
baja. 

El tipo del dato preparado y el de la variable a leer debe coincidir. 
En caso contrario se comete un error. 

Si hacemos varias lecturas mediante la instrucción READ y no 
hay suficientes datos en las instrucciones DATA se comete un error. 
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En algunos BASIC es posible suprimir las comillas para los datos 
textuales. Esta manera de escribirlos no es recomendable pues se 
eliminan los blancos que hay detrás o delante del texto entre las dos 
comas que lo definen. 

Una utilización de las instrucciones DATA es realizar búsquedas 
en tablas de datos fijos. 

La búsqueda finaliza cuando se ha encontrado el dato buscado 
o bien cuando se ha encontrado una marca de final que nos indica 
que la búsqueda ha sido infructuosa. 

Para poder realizar otra búsqueda se utiliza la instrucción RES- 
TORE. 

El efecto de esta instrucción es colocar como dato preparado para 
la lectura mediante el READ el primer dato de la instrucción DATA de 
más baja numeración. 

Estas tres instrucciones son semejantes a una cinta magnética. 
Las instrucciones DATA definen el contenido de la cinta y el orden en 
que aparecerán los datos. La instrucción READ lee un dato y avanza 
la cinta hasta el próximo dato. La instrucción RESTORE rebobina la 
cinta al inicio. 


EJERCICIOS AUTOCOMPROBACION 
Complete las frases siguientes: 
. Los datos de un problema que varían muy poco en el tiempo se 


denominan 


. Para almacenar datos fijos en un programa se utiliza la instrucción 


en una instrucción 


pueden colocarse en varias instruccio- 


. de las instrucciones DATA puede ser 
cualquier parte del programa. 


6. El orden de las instrucciones DATA define el ................................ 
.... de los datos. 


7. Para acceder a un dato se utiliza la instrucción ................................ 
8. La instrucción READ lee los valores de las variables que le siguen 
SOPAradas POT coccooococociciocccicococccncncnon 
9. Un dato no puede leerse Si NO Se haN coccion... los 
anteriores. 
10. La instrucción que nos permite volver a iniciar la lectura de los 
DATA es la instrucción .....ooocciccioninicic....... 
Encierre en un círculo la letra que corresponda a la alternativa 
correcta. 
11. La instrucción DATA en un programa se utiliza para almacenar: 


12. 


13. 


a) Datos fijos. 

b) Datos variables. 

c) Funciones numéricas. 

d) Dimensiones de las tablas. 


Si tenemos 10 datos en un DATA que sucede al hacer el onceavo 
READ: 

a) Repite el último leído. 

b) Lee el primer dato otra vez. 

c) Da un error. 

d) Da cero si es numérico o vacío si es textual. 


Cuando hacemos un READ de una variable numérica y el dato 
preparado en el DATA es textual ocurre que: 

a) Se coloca cero. 

b) Se salta los datos alfabéticos hasta encontrar uno numérico. 
c) Toma el código ASCII det primer símbolo del texto. 

d) Da un error. 
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14. Imagine que tiene 25 datos en un DATA, ha leído 14 con un 
READ, hace un RESTORE y finalmente otro READ. ¿Qué dato 


lee? 

a) El quince. 
b) El primero. 
Cc) Da error. 
d) El último. 


15. Cada vez que se ejecuta una instrucción READ se lee: 


a) Un solo dato. 

b) Tres datos. 

c) Tantos como tenga la línea DATA. 

d) Tantos como variables tenga la instrucción READ. 


. Considere el programa siguiente: 


10 
SO 
HO 
AO 
00 


DIM ACI) 
FOR 

READ A(4-1) 
MEXT 1 
FOR Il = 1 
FRINT OACI) 
NEXT 1 
DATA 


60 
TO 
80 


¡o 


¿qué secuencia de números se obtiene? 


a) 1,2,3. 
b) 3,2,1. 
Cc) Da error. 
d) 1,3,2. 


17. Considere el programa siguiente: 


READ A 
20 1F A=0 
30 PRINT A 
60 TO 10 

50 DATA 5,4,0,2,3,1 


THEN END 


BASIC 


¿Qué secuencia de número escribe? 


a) 5,4,0,2,3,1. 
b) Da error. 
C) 5,4. 

d) 2,3,1. 


. Si al programa del ejercicio anterior se le cambia la instrucción 50 
por: 
30 DATA Se Anna dl 
¿qué secuencia de números escribe? 


a) 5,4,2,3,1. 
b) Da error. 
C) 5,4. 

d) 2,3,1. 


19. Si en el programa del ejercicio 17 se cambia la línea 50 por: 
50 DATA 5,4, "JUAN",0, 2,3, 
¿qué secuencia de números escribe? 


a) 5,4,0,2,3,1. 
b) Da error. 
C) 5,4. 

d) 2,3,1. 


. Si en el programa del ejercicio 17 se cambia la línea 50 por: 


50 DATA 3,2,0, "JUAN", 5,6 


¿qué secuencia de némeros escribe? 


a) 3,2,0,5,6. 
b) Da error. 
Cc) 3,2. 
d) 5,6. 
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11.2 APLICACIONES 


11.2.1 El mes en letras 


Estas instrucciones, como vemos, tienen múltiples posibilidades de 
aplicación, ya que nos permiten almacenar datos dentro de un programa 
de una forma bastante cómoda. 

Vamos a ver con otro ejemplo la utilización de estas nuevas instruc- 
ciones. Recuerde el programa que hemos visto en el capítulo anterior para 
convertir la fecha, escrita en formato: 


DD-MM-AA 
(por ejemplo 12-10-87, o 03-05-84) a la forma siguiente: 


DD de mes de 19AA 


(correspondería a 12 de octubre de 1987 para el primer caso, y a 3 de mayo 
de 1984 para el segundo). 

Tal como ya habíamos dicho en el capítulo anterior, necesitaremos in- 
troducir la fecha en primer lugar, y separar la parte correspondiente al día 
(los dos primeros caracteres), el mes (los caracteres cuarto y quinto), y el 
año (dado por los dos últimos caracteres). Los símbolos de día y año se 
deberán escribir tal cual, y el mes se deberá traducir, determinando el nom- 
bre a partir del número del mismo. Finalmente, se escribirá la fecha com- 
pleta. 

Ya hemos visto un programa, en el capítulo anterior, que nos permitía 
resolver este problema. Veamos cómo modifica el listado de utilización de 
las nuevas instrucciones vistas, DATA y READ. 


NEW : 
10 REM TRANSFORMACION DE LA FECHA 
ZO REM Dimensionado de variables 


30 DIM N$(1:2) 

40 REM Lectura del nombre de los meses 

SO FOR 1 = 1 TO 12 

60 READ N$(1) 

70 NEXT 1 

B0 REM Entrada de la fecha en formato DD-MM-AR 
20 INFEUT "Entre la fecha (DD-MM-M8) 3 ",F% 
100 REM Separacion y traduccion del mes 

110 LET DéS=LEFTS$(F$,:2) 

120 LET Mé=MIDS$(F$, 4,2) 

130 LET A$S=RIGHTS (Fs, 2) 

140 REM Traduccion del mes 

1530 LET M=VAL (M3) 

1680 LET MBé=N$ (M) 

170 REM Construccion del resultado 

190 LET R$ = D$*+" de "+M$+" de 19"+0% 

190 FRINT R$ 


1000 DATA "Enero", "Febrero", "Marzo" 


BASIC 


1010 DATA "Abril", "Mayo", "Junio” 
10:20 DATA "JInilio", "Agosto", "Septiembre" 
1030 DATA "Octubre", "Noviembre", "Diciembre" 


Ejecute el programa, e introduzca una fecha cualquiera, por ejemplo: 
12-10-84 
Obtendrá como resultado: 
12 de Octubre de 1984 


Analicemos con detalle cuál es el funcionamiento del programa. En pri- 
mer lugar, leemos la fecha utilizando una variable textual, F$. Para conocer 
el día, el mes y el año, deberemos tomar por separado los valores corres- 
pondientes. Esta es la función de las instrucciones correspondientes a las 
líneas 110 a 130. A Df se le asigna el día, a M$ el mes, y a AS$ el año. El 
día y el año se escribirán tal cual, sin embargo, el mes debe traducirse. 

Para cada mes, el número se corresponde a un nombre determinado. 
Así, el mes 1 es Enero, el 2 Febrero, etc., hasta el 12 que es Diciembre. 
Para ello, una vez separado el mes (en forma textual), tomamos el valor 
del mismo (línea 150). Por otra parte, y en las líneas 50 a 70 hacemos que 
el programa «conozca» la correspondencia entre cada número y los doce 
nombres asociados. Para ello utilizamos las instrucciones DATA y READ 
correspondientes, que asignan a la variable dimensionada N$, los nombres 
de cada mes. 

Ahora, conociendo el número del mes que nos han introducido (valor 
que contiene la variable M), podremos saber el nombre del mismo, que 
vendrá dado por el valor de N$ cuyo subíndice corresponda al valor de M. 
Así, si M vale 1 deberemos tomar N$(1), que es Enero, si M vale 2, to- 
maremos N$(2), que será Febrero, etc. En general, tomaremos N$(M) y 
obtendremos el nombre del mes cuyo número viene dado por M (línea 160). 

Una vez conocido esto, construiremos la variable resultado R$, a base 
de concatenar el número del día, la preposición «de», el nombre del mes, 
otra vez la preposión «de», y finalmente el número del año, precedido del 
19. Por tanto, este programa, tal como está escrito, tendrá únicamente va- 
lidez para este siglo. Si estuviéramos en el siglo XXI, deberíamos escribir 
un 20, no un 19. 

¿Cómo podríamos modificar el programa para obtener la transforma- 
ción de más de una fecha? Tal como ya hemos visto en casos anteriores, 
bastará añadir algunas líneas de forma que nos permitan finalizar o no, 
según se lo indique el usuario. Para ello escribiremos: 


200 INPUT "Desea continuar (S/N): ", R$ 
10 IF R$="S5" THEN GOTO 90 
220 END 
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El programa completo quedará ahora: 


NEW 

10 REM TRANSFORMACION DE LA FECHA 

20 REM Dimensionado de variables 

30 DIM N$(12) 

40 REM Lectura del nombre de los meses 
SO FOR 1 = 1 TO 12 


60 READ N$(1) 

70 NEXT 1 

80 REM Entrada de la fecha en formato DD-MM-- AR 
390 INPUT "Entre la fecha (DD-MM-AR): ",F$ 
100 REM Separacion y traduccion del mes 

110 LET D$=LEFTS(F$, 2) 

120 LET Me=MID$(F$, 3,2) 

130 LET A$=RISGHTS (F%, 2) 

140 REM Traduccion del mes 

150 LET M=VAL (M4) 

160 LET Mé=N)$ (mM) 

170 REM Construccion del resultado 

180 LETOR$ = D$+" de "+M$+*" de 19"+A%$ 

190 . PRINT R$ 

200 INPUT "Desea continuar (S/N)i3 ",R% 

210 1F R$="S5" THEN GOTO 90 

220 END 


1000 DATA "Enero", "Febrero", "Marzo” 

1010 DATA "Abril", "Mayo", "Junio” 

1070 DATA "Julio", "Agosto", "Septiembre" 
1030 DATA "Dctubre"”, "Noviembre", "Diciembre" 


Ejecútelo para comprobar su funcionamiento. Podrá escribir las fechas 
que desee. En el momento que desee detener el proceso, bastará que lo 
indique cuando el programa le haga la pregunta, entrando una letra distinta 


de S. 
Diferencias entre cargar ¿Qué diferencia observa en este programa con respecto al anterior? 
una tabla y leer siempre En este caso no utilizamos la instrucción RESTORE, y, a diferencia del 
en el DATA caso anterior, no tenemos problemas con el almacén. Comparando los lis- 


tados y el funcionamiento de uno y otro caso, se verá a qué se debe el 
distinto comportamiento de ambos. 

En el caso del problema de traducción INGLES-ESPAÑOL, para cada 
palabra debemos recorrer el almacén, hasta encontrar la palabra o llegar 
al final del mismo, y cuando nos introducen una nueva, debemos recorrerlo 
otra vez, empezando por el principio. Por esta razón necesitamos la ins- 
trucción RESTORE. Sin embargo, en el programa de transformar la fecha, 
leemos los nombres de los meses una sola vez, y no es necesario que 

- realicemos ninguna otra lectura. Por esto el bucle de lectura lo hemos si- 


114 


La tabla de los nombres de 
los números. No es preciso 
almacenar el nombre de 
todos los números. 


BASIC 


tuado al principio del programa, de forma que sólo se realice el proceso una 
sola vez. 


11.2.2 El día en letras 


Veamos ahora una posible ampliación de este programa. Supongamos 
que, además de traducir el mes, nos interese que el día aparezca escrito 
en letras. Por ejemplo, si la fecha es: 


12-05-84 
nuestro programa lo traduzca por: 


Doce de Mayo de 1984 


Dado que el programa ya nos traduce el mes, bastará añadir las ins- 
trucciones para traducir el día. Vamos a añadir las instrucciones para que, 
a partir del número de día —contenido en la variable D$—, nos de la co- 
rrespondiente traducción en letras. 

El programa deberá ser capaz de escribir en letras los números com- 
prendidos entre uno y treinta y uno. Entre uno y veinte, todos los números 
son distintos. Deberemos almacenar pues, los nombres correspondientes 
a cada número. 

A partir del número veinte y hasta el treinta, los nombres de los nú- 
meros se construyen con el prefijo «veinti» (correspondiente al 2) y la tra- 
ducción del número que esté a la derecha de éste. Así, el número 25 se 
escribe «veinti» y a continuación «cinco»; será pues «veinticinco». 

El treinta debe tenerse también almacenado, el 31 se construye a partir 
del anterior, añadiéndole una «Y», y la traducción del 1; será pues «treinta 
y uno». 

Necesitaremos un almacén con los veinte primeros números, con el 
prefijo de «veinti» para construir los comprendidos entre 20 y 30, y con la 
traducción del 30. En total son 22 elementos. Estos se almacenarán en un 
DATA, que se leerá al principio del programa. La variable utilizada como 
almacén deberá dimensionarse. 

Por otra parte, tomaremos el valor del número, y haremos la traducción 
por separado, según sea inferior a 21, superior a 30, o esté entre ambos. 

Al escribir el programa, ya tendremos en cuenta que se ha de unir al 
anterior; por tanto, utilizaremos nombres de variables que no puedan in- 
terferir, y numeraremos las instrucciones de forma conveniente, para que 
nos queden en el lugar adecuado. De esta forma no será necesario borrar 
el programa de traducción que ya tenemos escrito, y luego volver a escri- 
birlo entero. 

En primer lugar, deberemos escribir las instrucciones de lectura del 
DATA de los nombres de los números. Estas se escribirán a continuación 
de los nombres de los meses, la lectura deberá hacerse por tanto a con- 
tinuación de la de aquéllos. La situaremos pues entre las líneas 70 y 80: 


71 REM Lectura del nombre de los numeros 
72 FOR 1 = 1 TO 22 

73 READ F$(1) 

74 NEXT I 
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Ahora, necesitamos efectuar la traducción del día. Esta se hará des- 
pués de la del mes. Dado que necesitamos más de diez instrucciones, nu- 
meraremos las instrucciones entre 161 y 179, escribiendo de nuevo la ins- 
trucción REM que indica la construcción del resultado: 


161 REM Traduccion del dia 

162 LET V = VAL (D$) 

163 IF V>)20 THEN GOTO 166 

164 LET D$=F3$ (Y) 

165 GOTO 180 

166 LET R = VAL(RIGHTS(DS$, 1)) 
167 IF V>)29 THEN GOTO 170 

169 LET D$ = F$(21)+P38 (R) 
169 E GOTO 180 

170 LET D$ = E$(22) 

171 IF R>O THEN LET D%$ = D$+" y "+EF$(R) 
173 REM Construccion del resultado 


Por último, escribiremos los valores del DATA en el lugar correspon- 
diente, que, como hemos dicho, será a continuación de los ya existentes: 


2000 DATA "Uno", "Dos”, "Tres", "Cuatro", "Cinco", "Seis", "Siete" 
2010 DATA "Ocho", "Nueve", "Diez", "Once", "Doce", "Trece" 

2020 DATA "Catorce", "Quince", "Dieciseis"”, "Diecisiete" 

2030 DATA "Dieciocho", "Diecinueve", "Veinte" 

2040 DATA "Veinti", "Treinta" 


Deberá modificarse la línea 30, que quedará: 


30 DIM N$(12), PR) 


El listado completo quedará pues: 


10 REM TRANSFORMACION DE LA FECHA 
20 REM Dimensionado de variables 


30 ¿DIM N$(12), PFS(22) 

40 REM Lectura del mombre de los meses 

s0 FOR 1 = 1 TO 12 A 

50 READ N$(I) 

70 NEXT 1 

71 REM Lectura del nombre de los numeros 

72 FOR 1 = 1 TO 22 

73 READ ES(1) 

74 NEXT 1 

80 REM Entrada de la fecha en formato DD-MM--AN 
90 INPUT "Entre la fecha (DD-MM-AA) 1: ",F$ 


100 REM Separacion y traduccion del mes 
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110 LET DS=LEFTS(F$, 2) 


120 LET Mé=MIDS(F$, 3,2) 
130 LET AS=RISHTS (FS, 2) 
140 REM Traduccion del mes 
150 LET OM = VAL (M$) 

160 LET M$ = N$(mM) 


161 REM Traduccion del dia 

162 LET V = VAL(D$) 

163 IF V)2O THEN GOTO 166 

164 LET D$ = F(V) 

165 GOTO 1890 

166 LET R = VAL(RIGHTS$ (DS, 1)) 
167 TF 929 THEN GOTO 170 

169 LET D$S = P$(21)+FRH(R) 
169 GOTO 180 

270 LET D$ = EF$(22) 

17: 1F RO THEN LET D$ = D$+" y "+P$(R) 
17% REM Construccion del resultado 


1560 LET R$ = D$+" de "+M$+" de 19"+A$ 

190 ERINT R$ i de 
200 INPUT "Desea continuar (S/N): ", R$ 

210 IF R$="S" THEN GOTO 390 

220 END 
1000 DATA "Enero", "Febrero”, "Marzo" 

1010 DATA "Abril", "Mayo", "Junio" 


1020 DATA "Julio”, "Agosto", "Septiembre" 

1030 DATA "Dctubre", "Noviembre", "Diciembre" 

2000 DATA "Uno", "Dos", "Tres","Cuatro", "Cinco”, "Seis", "Siete" 
2010 DATA "Ocho", “Nueve”, "Diez", "Once", "Doce", "Trece" 

2020 DATA "Catorce", "Quince", "Dieciseis”, "Diecisiete” 

ZO30 DATA "Dieciocho", "Diecinueve", "Veinte" 

2040 DATA "Veinti", "Treinta" 


Escribamos RUN para comprobar el funcionamiento del programa. Las 
instrucciones añadidas para la lectura del nuevo DATA no precisan expli- 
cación, pues la lectura de los números se efectúa igual que la de los meses. 
Sí vamos a detenernos en cambio, en las instrucciones utilizadas para la 
traducción del día. 

En primer lugar, tomamos el valor numérico del día introducido (línea 
162). A continuación, comprobamos si el número es superior a veinte o no. 
Si no es superior utilizaremos el propio número como subíndice de la va- 
riable P$, que contiene los nombres correspondientes a cada número, y el 
valor obtenido lo almacenaremos en la variable D$ (línea 164) para que nos 
quede concatenado con el resultado. 

Si el número es superior a 20, separaremos la parte derecha del mismo 
(línea 166), y tomaremos su valor, que asignaremos a la variable R. El pro- 
ceso es ahora distinto si estamos por debajo o por encima de treinta. Si es 
inferior a treinta, concatenaremos el prefijo correspondiente (que ocupa la 
posición 21 de nuestra tabla de datos) con la traducción de la parte derecha 
del número. Esta vendrá dada por el elemento de la variable P$ que ocupe 
la posición dada por el valor R. 

Esto es así, porque este valor de R (correspondiente a las unidades), 
estará comprendido entre 1 y 9, y como tal lo tendremos almacenado en 
la tabla. 

Finalmente, queda el caso de los números superiores a 29. En primer 
lugar, asignaremos la primera parte del resultado, que será el último ele- 
mento de nuestra tabla. Si el valor era 30, ya está hecha la traducción. Si 
por el contrario, era superior, tal como se controla en la línea 171, habrá 
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que añadir la conjunción «y», así como la traducción de las unidades, cuyo 
valor se obtiene como en el caso anterior. 

Dado que el número máximo que nos pueden introducir es el 31 (no 
existen meses de más de 31 días), se hubiera podido construir esta última 
parte de una forma más simple. Sin embargo, tal como está escrito es válido 
para un caso general. A partir de éste, piense cómo se podría construir un 
programa para traducir números mayores, en principio inferiores a 100. 


11.2.3 La agenda 


Veamos por último un nuevo ejemplo de utilización de estas instruc- 
ciones. Vamos a construir un programa que nos permita la manipulación 
de una agenda. En ella tendremos, para cada persona, el nombre, la di- 
rección y el número de teléfono, y podremos conocer todos los datos de 
cada uno entrando uno cualquiera de estos tres. Para ello, dispondremos 
los datos en forma de tabla con dos subíndices, con la siguiente estructura: 


1 2 3 
NOMBRE DIRECCION TELEFONO 
Fernández Roca, Javier C/. Pino, 32 346-98-80 
García Llopart, Elena C/. Agua, 12 256-98-73 
Merlo Rubio, David C/. Arenas, 23 423-90-65 


De esta forma, el elemento 1,1 de la tabla será el primer nombre, el 
2,2 será la calle del segundo elemento, el 1,3 será el teléfono del prime- 
ro, etc. 

Así, el primer subíndice indica el orden en la lista (lugar ocupado en la 
misma), mientras que el segundo indica si se trata del nombre, de la direc- 
ción o del teléfono. Evidentemente esta lista se puede hacer más larga, ya 
sea por abajo, aumentando el número de personas que la componen, tal 
como se indica en la tabla anterior, o bien lateralmente, indicando más ca- 
racterísticas de cada una de estas personas. Así, para cada uno podríamos 
tener el número de afiliación a la Seguridad Social, el título u oficio que 
posee, etc. Estos campos nos alargarían la lista por la derecha. 

El programa de consulta de esta agenda, se basará en esta estructura. 
Constará de una primera fase de lectura de la agenda, y asignación a la 
correspondiente variable textual subindicada. Una vez «conocidos» por el 
programa todos los elementos que integran la agenda, realizaremos el pro- 
ceso de consulta. En primer lugar, el usuario de nuestro programa nos de- 
berá indicar si quiere realizar la consulta de un nombre, de una calle, o de 
un teléfono. Una vez indicado esto, deberá introducirnos el texto a buscar, 
que debe corresponder a lo solicitado. Así, si se ha indicado que se desean 
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conocer los datos de una persona de la que únicamente se sabe el número 
de teléfono, se indicará que se va a consultar un teléfono, y a continuación 
se escribirá el número a buscar. ' 

Si el número buscado existe en la lista, se indicarán todos los datos 
fel propietario del mismo (en este caso nombre y dirección), y se seguirá 
el recorrido, hasta el final de la lista. Debe permitirse la realización de tantas 
consultas como se desee. 

El listado para ello podría ser: 


Comprobemos el funcionamiento del programa escribiendo RUN. Su- 
pongamos que deseamos saber cuántos elementos existen en la agenda 
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que vivan en la calle del Pino, 32. Para ello, pulsaremos una D, indicando 
que queremos realizar la consulta de una dirección, y a continuación es- 
cribiremos: 


C/. Pino, 32 


El programa repasará la tabla. Dado que hay un elemento en la misma 
que cumple la condición pedida, escribirá todos sus datos en la pantalla: 


Fernández Roca, Javier C/. Pino, 32 346-98-80 
A continuación escribirá: 


Elementos que cumplen la condición dada: 1 


y esperará que pulsemos una tecla para continuar, que en este caso será 
volver al principio del programa para permitirnos realizar una nueva con- 
sulta. 

Ponga atención al escribir el texto que busca. Asegúrese de que está 
escrito exactamente ¡igual que en el almacén —mayúsculas y minúsculas 
en la misma posición, espacios en blanco, comas, etc.—, pues de lo con- 
trario no lo podrá encontrar al hacer la búsqueda. 

Veamos con detalle cuál es el funcionamiento del programa. En primer 
lugar, se realiza la lectura de la tabla. Esta tabla se asigna a una variable 
textual, que previamente habremos dimensionado (línea 30). En principio, 
no conocemos cuántos elementos constituyen nuestra agenda; por esta ra- 
zón, se dimensiona la variable correspondiente a un valor alto, que en prin- 
cipio parezca bastante superior al número de elementos que podamos tener 
(en este caso hemos dimensionado a 50, si parece poco puede dimensio- 
narse a 100 o más). 

En cuanto al número de datos para cada elemento, hemos supuesto 
que en este caso tenemos tres: nombre, dirección y teléfono. Si se precisan 
más datos, bastará aumentar el segundo subíndice al dimensionar la varia- 
ble utilizada para contener la tabla. 

El proceso de lectura se realiza entre las líneas 50 y 110. Dado que 
no conocemos cuántos elementos tenemos, ya que estos pueden además 
sufrir variaciones (se pueden añadir o borrar elementos), deberemos indicar 
el final del almacén mediante una señal determinada. En este caso, escri- 
biremos la palabra FIN. 

En primer lugar, leeremos tres valores, sin asignarlos aún a la variable 
tabla, sino a tres variables auxiliares cualquiera. Comprobaremos entonces 
que el primer valor leído no sea la marca de final. Si efectivamente no es 
así, los valores leídos forman parte de la tabla, deberán constituir pues el 
siguiente elemento de la misma. Incrementaremos entonces el subíndice 
correspondiente (l), y asignaremos cada dato en la posición correspon- 
diente (primer valor para la primera columna, segundo para la segunda...) 
Esto se gobierna mediante el subíndice correspondiente (el de columna: J). 

Este proceso se repite hasta que se lee la marca de final: FIN, mo- 
mento en que se da por terminada la lectura, y se pasa a la fase siguiente. 

Por otra parte, dado que en cada ocasión realizamos la lectura de tres 
variables a la vez, la última instrucción DATA, que marca el final del al- 
macén, deberá contener tres elementos. El primero es el que nos sirve de 
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control, y contiene la palabra FIN. Los dos restantes pueden ser nulos, los 
incluiremos después de esta palabra. 

Dado que ahora la variable | contiene el número de elementos que 
existen en la tabla, almacenaremos este valor para su posterior utilización 
a lo largo del programa (línea 130). A continuación se realiza la presenta- 
ción de pantalla (líneas 140 y 150), y la pregunta de lo que se desea entrar 
(línea 160). Esta pregunta nos indicará qué columna se ha de recorrer: la 
de nombres (pulsando una «N»), de direcciones (pulsando una «D») o de 
teléfonos (pulsando una «T»). Según lo que se desee, el subíndice de co- 
lumna valdrá 1, 26 3. 

Simultáneamente, en este punto se puede indicar que se desea fina- 
lizar el proceso, para lo que basta pulsar una «F». Si se escribe alguna otra 
cosa por error, el programa repite de nuevo la pregunta. 

La fase siguiente es la de entrada del valor a buscar (línea 290), y 
finalmente la realización de la búsqueda efectiva. Esta consiste, como ya 
hemos dicho, en recorrer la columna de la agenda que nos hayan indicado, 
comparando cada uno de sus elementos con el que nos han entrado. La 
búsqueda se empieza por el primer elemento; en la misma línea (320) se 
inicializa un contador para contabilizar los elementos que cumplan la con- 
dición solicitada. La búsqueda finaliza cuando se ha recorrido toda la tabla. 
Cuando se encuentra un elemento que cumple la condición de igualdad con 
el pedido, se presentan todos los datos del mismo: nombre, dirección y 
teléfono, y se prosigue el recorrido de la tabla, hasta el final de la misma. 

Por último, se indica el total de elementos que cumplen la condición 
pedida (línea 390), se espera que el usuario haya leído el resultado (línea 
400) y se vuelve de nuevo al principio del programa. 

Observe que en este caso sólo realizamos la lectura del almacén una 
sola vez. Este mismo sistema podríamos haberlo utilizado en el programa 
traductor, leyendo todo el diccionario al principio de la ejecución, y asig- 
nándolo a una variable tabla como en este caso. De esta forma no hubié- 
ramos necesitado la instrucción RESTORE. A efectos prácticos, no obser- 
varíamos diferencia alguna en el funcionamiento entre una u otra forma, 
aunque, desde el punto de vista lógico, parece más correcto efectuar una 
sola vez al principio la lectura de todo el almacén, asignándolo a una va- 
riable determinada, sobre la cual realizar el proceso de búsqueda. 


-—[ 


11.3 FUNCIONES DEFINIDAS POR EL USUARIO 


En el capítulo 3 del primer volumen estudiamos las funciones intrín- 
secas del BASIC, por ejemplo SQR(X), LEN(X$), INT(X), etc. 

Recordemos, que estas funciones las incorpora internamente el or- 
denador. Todas ellas están predefinidas y su funcionamiento preestable- 
cido. Algunas variantes del BASIC, permiten además, que el usuario se 
defina sus propias funciones. 

Estas funciones se usan en el programa de forma idéntica a como se 
utilizan las funciones intrínsecas. No obstante estas funciones definidas por 
el programador no perduran más allá del programa en que se han definido. 
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Se requieren dos tipos 
de instrucciones 


Si hay que usarlas en otros programas es necesario volverlas a definir en 
cada uno de ellos. 

Normalmente se utilizan funciones definidas cuando es necesario rea- 
lizar frecuentemente a lo largo del programa unas operaciones iguales pero 
para valores diferentes. Es más interesante aún cuando estas operaciones 
son relativamente complicadas. Algunos ejemplos son las funciones de cál- 
culo del interés compuesto, cálculo de superficies y volúmenes de cuerpos 
sólidos. 

Los ejemplos más claros son precisamente las funciones intrínsecas 
que nos permiten disponer de resultados en operaciones matemáticas com- 
plejas, por ejemplo, sacar logaritmos, o no tan complejas como es sacar el 
valor absoluto. 

Estas funciones definidas por el programador requieren dos tipos de 
instrucciones: 

Uno, en que se definen las operaciones a realizar. 

Otro, en el que utilizamos las operaciones definidas por el cálculo de 
algún valor. 

El problema nuevo que afrontamos aquí es la definición de las funcio- 
nes, ya que la utilización es idéntica, salvo el convenio de nombres, al de 
las funciones intrínsecas. 

Antes de abordar el problema de la definición estudiaremos la nomen- 
clatura de estas funciones. 


11.3.1 Nomenclatura 


Las funciones intrínsecas, que ya conocemos, todas tienen un nombre, 
por ejemplo, ASC(X$), LOG(X), VAL(X$), etc. Pues bien, lo primero que 
tenemos que ver es el nombre que hay que dar a la función, para que el 
ordenador sepa que se trata de una función definida por el usuario. 

El nombre de la función debe comenzar obligatoriamente por las letras 
FN, que provienen de la abreviatura de FUNCION (FUNCTION en inglés). 

Después del prefijo FN, se coloca la letra que identifica la función. Por 
ejemplo: 


FNA FNX 


Son nombres correctos de funciones definidas por el usuario. 
Si la función tiene un resultado textual, después del nombre hay que 
añadir el símbolo de dólar. Por ejemplo: 


FNBS — FNZS 


Son funciones definidas por el usuario con un resultado textual. 

El hecho de que después del prefijo FN podamos poner letras distintas, 
permite el que en un programa podamos definir más de una función. Sin 
embargo, lo que no podemos hacer es tener más de una función definida 
con la misma letra, pues aun cuando el BASIC no diera error esta ambi- 
gúedad sería inadmisible desde un punto de vista lógico. 


Asignación del nombre 
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Aunque hay versiones de BASIC que permiten que después del prefijo 
FN pongamos más de una letra, nosotros seguiremos la norma de poner 
siempre una sola letra para hacer compatibles nuestros programas con las 
distintas versiones de BASIC. 

Tenga en cuenta también, que al principio puede confundirlas con los 
conjuntos dimensionados debido a que van seguidas de paréntesis. 

Por ejemplo, si usted encuentra en un programa 


ENS(M) 


le podría parecer que es una variable de un conjunto dimensionado, en 
aquellas versiones de BASIC que admiten más de una letra para las varia- 
bles de conjuntos dimensionados. Sin embargo, esta confusión no se le 
dará, pues aun en el caso de que el BASIC admita variables de conjuntos 
dimensionados con más de una letra, nunca podrán empezar estas varia- 
bles por el prefijo FN. Téngalo usted también en cuenta para no utilizar 
variables que comiencen por estas letras. 

Por tanto, el nombre de una función definida por el usuario debe co- 
menzar siempre por el prefijo FN seguido de una letra, cuando el resultado 
es numérico, y seguido de una letra y el símbolo de dólar, cuando el re- 
sultado es textual. 

Según esto, serían nombres incorrectos de estas funciones los siguien- 
tes: 


FAN (Pues debe empezar por el prefijo FN) 
FN1 (Pues al prefijo FN debe seguir una letra) 
FN$ (Pues falta una letra entre el prefijo FN y el $) 


11.3.2 Definición de las funciones 


En el apartado anterior hemos visto qué nombre hay que dar a las 
funciones definidas por el usuario. Ahora veremos el modo de definir estas 
funciones. 

El proceso de definición de las funciones consta de tres partes: 


a) Asignar el nombre a la función a definir. 
b) Especificar los argumentos. 
c) Especificar las operaciones que debe realizar. 
Vea ahora la figura 1, donde se identifican cada una de estas partes 


en un ejemplo concreto, y téngala presente a medida que vaya estudiando 
lo que sigue. 


a) Asignación del nombre. La instrucción que nos permite definir las 
funciones es la instrucción DEF, que proviene de DEFINIR (DEFINE en 
inglés). 

Detrás de la palabra DEF, que es una de las palabras reservadas por 
el BASIC, se coloca el nombre de la función a definir. En el ejemplo de la 
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DEF FNF (I,R,N) ll (1+ RIN 
e O 


Asignación 
del 
nombre 


Figura 1. Definición de una fun- 
ción propia 
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Especificación 
de los argumentos 


Especificación 
de las operaciones 


A 
Especificación Especificación 
de los de las 
argumentos operaciones 


figura 1, este nombre será concretamente FNF. Observe que en el nombre 
de la función se cumple lo que hemos dicho sobre la nomenclatura de estas 
funciones. Es decir, que se coloca el prefijo FN seguido de una letra. En 
este caso una F. 


b) Especificación de los argumentos. Después del nombre se abre un 
paréntesis y a continuación se especifica el nombre o nombres de los ar- 
gumentos, separados por comas si hay más de uno y finalmente se cierran 
los paréntesis. 

Veamos ahora con un poco más de detención el concepto de argu- 
mento, para analizar cuáles son las características de estos nombres que 
colocamos entre paréntesis. Para ello, tomaremos como ejemplo la fórmula 
del interés compuesto, que es la siguiente: 


F=l*(1+R)'ÓN 
donde: 
F = Valor final 


| = Valor inicial 
R = Rédito 
N = Número de años. 


Esta forma de expresar la fórmula es matemática, pero está claro que 
obtenemos un número F, a partir de los tres números /, R y N. Estos tres 
números /, R y N son precisamente los argumentos. El argumento es, pues 
un nombre, que indica que para calcular es preciso conocer el valor de ese 
nombre. En el ejemplo concreto de esta fórmula será necesario conocer el 
valor numérico de cada uno de estos argumentos. 

En el ejemplo de la fórmula, el valor es numérico, y por eso el nombre 
de cada uno de ellos está representado por una letra. Sin embargo, el ar- 
gumento o argumentos podrían ser también textuales. En este caso, des- 
pués de la letra que indica el nombre del argumento deberíamos colocar el 
símbolo dólar. 


c) Especificación de las operaciones. Sigamos ahora con el ejemplo 
de la figura 1. Una vez que hemos especificado el nombre y la lista de los 
argumentos vemos en la figura que se coloca el signo igual y a continuación 


Formato general 
de la instrucción DEF 
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se especifican las operaciones que van a intervenir en el cálculo de la 
función. 

La manera de especificar estas operaciones es exactamente como una 
expresión normal de BASIC. Por tanto, se podrán especificar todas las ope- 
raciones que tengan sentido en BASIC. 

En la fórmula concreta del interés compuesto que hemos puesto como 
ejemplo vemos que aparecen mezclados los nombres de los argumentos l, 
R y N con los operadores (*, + y”) y con constantes (en este caso sólo 
el 1). Pero esta mezcla es una expresión perfectamente válida en BASIC. 

En la expresión intervienen los nombres de los argumentos, de modo 
que en el momento de cálculo, el BASIC sustituye dichos argumentos por 
los valores numéricos que se especifican en el momento de la llamada. 

En conclusión, el formato general de la instrucción DEF es el siguiente: 


DEF FN <nombre> (<arg. 1>, <arg. 2>,...) = <expresión> 
en donde: 


nombre es por lo menos una letra escogida por el programador. Se le 
añade el símbolo dólar si el resultado ha de ser textual. 


argumento es un nombre que nos indica que al llamar a la función es ne- 
cesario dar este valor. Este nombre se denomina argumento. 
Si el nombre termina con el símbolo dólar, significa que el ar- 
gumento es textual. No hay ningún problema que haya argu- 
mentos textuales y numéricos en una misma instrucción DEF, 
siempre que su utilización en la expresión sea coherente en 
BASIC, o incluso, que se mezclen argumentos textuales y nu- 
méricos. 


expresión es el conjunto de operaciones que deben realizarse para cal- 
cular el valor de la función y que, insistimos, deben ser ope- 
raciones admitidas en BASIC. 


Por otra parte, las características que debe recordar al utilizar la ins- 
trucción DEF son las siguientes: 


a) Tiene una cierta similitud con una instrucción LET. La diferencia fun- 
damental está en que los cálculos, en la instrucción DEF, no se efectúan 
inmediatamente, sino que se difiere hasta que se llama a la función dentro 
de una instrucción de BASIC, tal como PRINT o LET. Esto es además ló- 
gico, pues es al llamar a la función cuando se dan los valores de los ar- 
gumentos. Por ejemplo, en el caso que hemos comentado de la fórmula del 
interés compuesto y suponiendo que el valor inicial es de 100000, el rédito 
del 10 y los años 5, obtendríamos el valor final (F) mediante la siguiente 
instrucción: 


PRINT FNF (100000,0.1, 3) 


b) La posición de esta instrucción dentro del programa (es una sen- 
tencia numerada igual que las demás) varía según la versión de BASIC. A 
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veces se requiere que la función esté definida antes de que sea utilizada 
por primera vez. En otros casos la instrucción DEF puede situarse en cual- 
quier parte del programa. 


c) Los argumentos en la instrucción DEF no tienen nada que ver con 
las variables del BASIC. Es decir, estos nombres sólo se utilizan interna- 
mente en la instrucción DEF para relacionar los cálculos y los datos que le 
suministramos. Cuando utilizamos la función del interés compuesto, si te- 
nemos variables con el nombre |, Ro N en el programa, no ocurrirá ninguna 
confusión; las variables son entidades totalmente separadas de los argu- 
mentos en la definición de las funciones. 


d) Los nombres de los argumentos pueden repetirse en distintas de- 
finiciones de funciones sin que se interfieran unos a otros. Recuerde que 
son sólo indicadores para saber cómo deben sustituirse en la expresión los 
valores de los argumentos. 


11.3.3 Ejemplos con la instrucción DEF 


Para finalizar con la instrucción DEF veamos algunos ejemplos de de- 
finición de funciones. 


a) Fórmula del interés compuesto. Ya la hemos analizado arriba, su 
valor es 


DEF FNF O ( 1,R,N) = IX(1+R)ON 


b) Cálculo del volumen de un depósito cilíndrico. 


El volumen de un depósito cilíndrico depende del radio de la base y de 
la altura mediante la fórmula: 


V=n*R*R*H 


en donde, R es el radio de la base y H la altura. rn es la constante Pl que 
vale 3.1416. 
La definición de la función es 


DEF FNV (RH) = 3,1416X*XRXRKXH 


Se trata de una función de nombre FNV, por lo tanto, de resultado nu- 
mérico con dos argumentos ambos numéricos, R y H. Las operaciones son 
simples multiplicaciones entre la constante n y los argumentos numéricos. 


c) Conociendo tres valores numéricos de día, mes y año escribir un 
texto que nos los dé, separados por guiones, tal como se suelen escribir 
las fechas. 
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Las diferencia de esta función con las anteriores es que el resultado 
es un texto y hace que sea más difícil expresarla en torma de fórmula, pues 
las matemáticas suelen trabajar con números. 

A partir del enunciado es claro que tiene tres argumentos numéricos: 
día, mes y año. Las operaciones son pasar a texto estos números y unirlos 
mediante guiones para escribir las fechas según la costumbre. Esto que 
hemos descrito lo plasmamos en la instrucción DEF del modo siguiente: 


DEF FND$ (D,M,A) = STR$(D)+"-"+STR$ (MM) +"-"+STR$(A) . 


Observe que el nombre de la función es D seguida del símbolo dólar, 
pues el resultado es textual. El resto de la instrucción refleja exactamente 
la descripción de las operaciones. Se utiliza la función intrínseca STR$ en 
la definición de las operaciones. Ya hemos dicho que es válida cualquier 
expresión en BASIC. 


d) La función nos da el número de blancos que hay que añadir a una 
cadena de caracteres para que se ajuste por la derecha en una línea de 
una longitud determinada. 

También en este caso, es difícil encontrar una fórmula que especifique 
este enunciado claramente. De todas maneras, la función debe tener un 
resultado numérico ya que se desea el número de blancos a añadir. Tiene 
además dos argumentos, und textual y otro numérico, éste nos indica en 
qué columna hay que ajustar el texto. 

Las operaciones a realizar son restar del ancho total la longitud que 
tiene el texto de tal manera que nos dará el número de blancos que hay 
que añadir a la izquierda para que el texto quede ajustado a la derecha. 

Por ejemplo. Si quiero colocar la palabra Atentamente ajustada a la 
derecha de una carta de 60 columnas. Para hacer esta impresión debo 
añadir 60 blancos menos la longitud de la palabra Atentamente; es decir, 
11, lo que da un total de 49 espacios en blanco. 

La instrucción DEF a colocar es 


DEF FNCC( T$,M) = M -— LENCTS) 


en donde, T$ es el argumento textual y M el argumento que indica el mar- 
gen al cual queremos ajustar. 


11.3.4 Utilización de las funciones 


Para ilustrar la utilización de las funciones definidas tomaremos el 
ejemplo del cálculo del volumen de un depósito cilíndrico, pero ahora las 
presentaremos ya numeradas formando parte del programa. 

En primer lugar escribimos la línea 10 en la que definiremos la función 
FNV, cuya misión será la de calcular el volumen de un depósito cilíndrico. 
Tenemos por tanto: 
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10 DEF ENV(R,H) = 3.1416 X Rx Ro xoH 


Ahora ya sólo tenemos que llamar a la variable definida mediante un 
PRINT, por ejemplo, para que realice el cálculo, sin olvidar que al llamar a 
la función debemos darle los valores de los argumentos que llevaba en la 
definición. En nuestro ejemplo, vamos a suponer que el radio (R) es de uno 
y la altura (H) es de dos. Escribiríamos por tanto: 


20 ARAUNE EMO (dica) 


Al escribir RUN nos dará un resultado de 6.2832. 

Veamos ahora diversos ejemplos, unos con resultados numéricos y 
otros con resultados textuales, unos con argumentos numéricos y otros con 
argumentos textuales, e incluso mezclando los argumentos numéricos y los 
textuales. Iremos numerando las líneas para cada uno de los ejemplos: 


a) Función con resultado numérico y argumentos también numéricos: 


10 DEF ENFCT,RAN)O == 1 Xx C1+RION 
b) Función con resultado textual y argumentos numéricos: 


20 DEF FINDS (D,M,A)= STR$(D)+"-"+STRS (D+"—"+STRS (A) 


c) Función con resultado numérico y argumentos textuales: 
0 DEF ENJ(A$,B$) = VAL (48) XVAL (85) 
d) Función con resultado textual y argumentos textuales: 
40 DEF FNHECXS, 1H) = XB$+Ys 
e) Función con resultado numérico y argumentos textual y numérico: 


30 DEF ENC (T8,M) = M- LENCTE) 
f) Función con resultado textual y argumentos textual y numéricos: 


60 DEF FNES(H8,F) = STR) + H$ 
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Como puede ver se pueden hacer múltiples combinaciones, a condi- 
ción de que a la hora de hacer la especificación de las operaciones el re- 
sultado tenga sentido en BASIC. 

Ahora daremos valores a los argumentos en las líneas que siguen, ha- 
ciendo que se escriban los resultados mediante la instrucción PRINT. Agru- 
paremos los resultados de dos en dos, siguiendo el mismo orden en que 
hemos escrito las definiciones de las funciones. Así tendremos: 


70 PRINT FNF(100,0.1,3), END$(1,1,87) 
80 PRINT ENJ(C"0OZS", "002'), FNHS( "SACA", "CORCHOS") 
90 PRINT FNC("ATENTAMENTE",60),FNE$("M",3) 


Al escribir RUN veremos que nos dará el resultado de 


133.1 1-1-87 
50 SACACORCHOS 
49 3M 


Hagamos ahora un ejemplo algo más complicado. Se trata de construir 
una tabla que nos dé el valor final de 100 unidades monetarias, con réditos 
alternativos que van desde el 8 al 14 % y desde 3 a 5 años. 

El programa consta de dos bucles: El primero que recorre los réditos 
y el segundo los años. En el interior del bucle se escribe el valor de la 
función del interés compuesto. 

El programa sería el siguiente: 


10 DEF FNECI,R,N) = IA CARRIÓN 

50 FOR 1 = 0.08 TO 0.14 STEF 0.01 

60 FOR N = 3 T0 5 
70 FRINT "R="gIg" N="¿N3" Valor="¿FENF (100, 1,N) 
80 NEXT N > 

90 NEXT 1 


observe que se inicia en la línea 10 con la definición de la función. 

Ejecute el programa. Obtiene ahora una tabla que le va dando el valor 
final para distintos valores del rédito y los años. 

El punto más importante a notar no son los resultados sino la manera 
como se ha utilizado la función. Observe que se han utilizado las variables 
| y N que son argumentos. Incluso la variable | no se corresponde con el 
argumento primero. Debe recordar que los argumentos y los nombres de 
las variables no tienen nada que ver. 

Las características de utilización más importantes de las funciones son: 


1. Se pueden utilizar en el lugar donde se pueda colocar una variable 
o una constante del mismo tipo que el resultado de la función. Excepto en 
la parte izquierda de la asignación. No tiene sentido una instrucción como 
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LET ENV(1, 3) = Ax tE 


sí en cambio, puede utilizarse en expresiones tan complicadas como 
LETOA = ENVO, 2) A3+E-SOR (07) 


2. Los argumentos deben coincidir en la definición y en la utilización 
tanto en tipo, como en número, como en orden. 

Es decir, cada vez que utilizamos la función FND$ debemos suministrar 
tres argumentos numéricos, el primero debe ser el día, el segundo el mes 
y el tercero el año. 

Cuando utilizamos la función FNC se debe suministrar dos argumentos 
el primero de tipo textual y el segundo de tipo numérico. 

Cualquier discordancia en el número de argumentos, el tipo o el orden, 
el BASIC la señala como error. 

Tenga en cuenta que el BASIC sólo distingue entre números y textos; 
en el ejemplo que hemos mencionado de la función FND$ Ud debe sumi- 
nistrar tres argumentos numéricos, lo hace pero se equivoca y da primero 
el año, después el mes y en tercer lugar el día. El BASIC no le da error 
porque no distingue si un número representa un año o un día. En cambio 
en el segundo ejemplo el de la función FNC, sí que obtendremos error si 
damos primero el dato de la columna y después el texto. El BASIC distingue 
claramente entre textos y números. 


3. En el momento de la utilización cada argumento puede suminis- 
trarse en forma de una expresión válida en BASIC y del nivel de complejidad 
que se quiera. 

En el programa que hemos mostrado de ejemplo ya hemos visto cómo 
se pueden utilizar variables como argumentos. Recuerde la sentencia 


70 FRINT "R="pl¿" N="3Ng" Valor="3FNF(100,1,N) 


También se pueden utilizar expresiones más complicadas. Por ejem- 
plo, la instrucción 


PRINTOENVO 3424 Tx (3-4), 2/SOQR C7AL) O) 


es válida en el supuesto que estén definidas las variables |, J y L. Como 
observa, cada argumento es una expresión de una complejidad más o me- 
nos grande. 

Para terminar vamos a considerar un caso de definición de una función 
que hemos olvidado hasta este momento para que las ideas queden más 
claras. 


En la definición de una 
función puede utilizarse una 
variable del programa en la 

definición de las operaciones 
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Considere la definición siguiente: 


30 DEF ENX (X, Y) = DXD/4 —- XXX — YKY 


Se trata, en principio, de una definición normal. En primer lugar el nom- 
bre es FNX, correcto según las reglas de nomenclatura que se han estu- 
diado. A continuación vienen los argumentos que son el X y el Y separados 
por comas y entre paréntesis. El símbolo igual y finalmente la expresión de 
las operaciones. La única anomalía a notar es precisamente en la definición 
de las operaciones la aparición del nombre D. No es un argumento porque 
no está en la lista. ¿De qué se trata entonces?, la respuesta es sencilla es 
una variable de BASIC. Es decir, cuando definimos una función todos los 
nombres que utilicemos que no estén en la lista de argumentos se consi- 
derarán variables de BASIC. En el ejemplo concreto la D debe responder 
a una variable en BASIC. 

¿Qué ocurre cuando utilizamos la función? Pues en este caso toma el 
valor de la variable en el momento que se está ejecutando. 

Veamos el ejemplo del siguiente programa: (se añade la línea 50 que 
define la función y que hemos dado más arriba). 


60 LET D= 10 
70 FRINT FNX(3, 4) 
80 LET D= 20 
90 PRINT FNX (3,4) 


Al ejecutarlo obtenemos en el PRINT de la línea 70 un 0 y en el de la 
línea 90 un 75. 

La diferencia de valores proviene de que hemos alterado el valor de D 
en la línea 80. En la línea 70 el valor de D es 10 en el cálculo de la función. 
En la línea 90 el valor de D es 20 en el cálculo de la función. 

Este mismo ejemplo nos demuestra que no es nada aconsejable utilizar 
este tipo de recursos; la misma función llamada con los mismos argumentos 
en distintas partes del programa da resultados diferentes. 

De todas maneras es posible utilizar una variable del BASIC en el in- 
terior de la definición de las funciones aunque, en general, no es una técnica 
aconsejable. 

El BASIC considera variables en una instrucción DEF a todos los nom- 
bres que no aparecen en la lista de argumentos. 


RESUMEN 


La búsqueda en listas de datos fijos es una necesidad muy fre- 
cuente en los programas. 
Los datos fijos se almacenan en instrucciones DATA. 
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Se han estudiado tres técnicas para manipular estos datos fijos: 


1. Con la instrucción READ y RESTORE. 
Las características de este tipo de búsqueda son: 


a) Cada vez que se realiza la búsqueda se lee el DATA hasta en- 
contrar el elemento buscado o hasta alcanzar un elemento que nos 
marca el final. 


b) Para iniciar otra búsqueda utilizamos el RESTORE. 


Este esquema es el más económico en memoria pero el más in- 
cómodo de programar, siempre hay que acceder a un elemento detrás 
de otro. 

El ejemplo del programa traductor utiliza esta técnica. 


2. Colocar los elementos en una tabla adicional de la dimensión 
justa. 

Consiste en leer los datos al inicio del programa en un conjunto 
dimensionado. Se parte del supuesto que conocemos el tamaño de la 
tabla. 

Se utiliza en el ejemplo de almacenar los nombres de los meses. 

De hecho, duplicamos en memoria la lista de los meses, la con- 
tenida en el DATA y la de la tabla. Sin embargo, el acceso a los datos 
por número es una comodidad importante. 

3. Utilizar una tabla de dimensiones mayores que las que pre- 
cisamos y leemos del DATA hasta encontrar un marcador de final. 

Este método es muy parecido al anterior en cuanto a economía 
de memoria. 

Tiene la ventaja respecto al anterior que la modificación de ins- 
trucciones DATA no altera en nada el programa. Es el ejemplo de la 
agenda. 

El BASIC permite definir funciones por parte del programa que 
sólo tienen validez dentro del ámbito del programa y se utilizan de una 
manera muy parecida a las funciones intrínsecas estudiadas en el ca- 
pítulo 3 del primer volumen de la Enciclopedia. 


El BASIC obliga a que estas funciones empiecen por las letras 
FN para distinguirlas de los conjuntos dimensionados. Como contra- 
partida los conjuntos dimensionados no pueden empezar con las le- 
tras FN. 

Le sigue una o más letras que elige el programador y si el re- 
sultado es textual debe finalizar con un dólar ($). 

A continuación aparecen encerrados entre paréntesis una lista 
de variables separadas por comas que son los argumentos de la fun- 
ción. De la misma manera que utilizamos las funciones LEN, MID, 
SQR, etc. 

Las variables que sirven de argumentos pueden ser numéricas o 
textuales. 

Para utilizar estas funciones es necesario definirlas. 

Se utiliza la instrucción DEF para realizar esta definición. Cuando 
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definimos una función con la instrucción DEF sólo la definimos y no 
se calcula nada. 

En el proceso de definición especificamos: 
a) El nombre de la función. 


b) El número y tipo de argumentos que utiliza la función. 


Cc) Las operaciones que realizaremos con los argumentos para alcan- 
zar el resultado deseado. 


Los argumentos en la definición no son variables del programa. 
Cuando se calcule la función serán reemplazados por las variables 
que utiliza la función en el momento de la llamada. 

Los argumentos en la utilización deben coincidir en número, tipo 
y orden respecto a los argumentos utilizados en la definición. En caso 
contrario el BASIC da error. 

Las operaciones que se pueden utilizar en la definición son cual- 
quiera de los operadores, funciones intrínsecas o funciones propias 
que son correctas en BASIC. 

En cuanto a las variables se pueden utilizar cualquiera del pro- 
grama además de los argumentos definidos en la lista. 


En caso de conflicto siempre prevalece el argumento. 


EJERCICIOS AUTOCOMPROBACION 
Complete las frases siguientes: 


21. Para cargar una tabla almacenada en instrucciones DATA puede 


utilizarse un dato que nos indique €l ....oococcciconnnnniniocicno de la 
tabla. 

22. El programador puede definir .................................... propias en el 
BASIC. 


23. Las funciones propias en BASIC empiezan por las letras ............ 


24. Sila definición de una función propia termina en dólar el resultado 
TODO SON incio: 


25. La definición de una función propia se hace mediante la instruc- 
Clonar 
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26. 


27. 


28. 


29. 


30. 


En la definición de las funciones propias de los nombres utilizados 
COMO: «cu oicicnincndensnitcinein no son variables del programa. 


LAS TUNCIONOS cenas se utilizan igual que las fun- 
ciones intrínsecas. 


Los argumentos, al utilizarse las funciones propias, deben ............ 
en número, tipo y orden respecto a los utilizados en 


la definición. 


La definición de una función propia puede utilizar ............................ 
pa del programa. Se distinguen porque no están en la lista de 
argumentos. 


E e EA de las instrucciones DEF en el programa 
depende de las versiones de BASIC. 


Considere las siguientes definiciones de funciones: 


10 DEF ENT(X) = 1./X 
20 DEF FND(X, Y)= SOR OOO YxY) 
30 DEF FNESOO = CHR$ (0) +"HOLA" 
40 DEF FNQ(X$,X)= X<LEN(X5) 

50 DEF FNM(X$) = LEN(X$)-2 


Encierre en un círculo la letra que corresponda a la alternativa 


correcta. 


31. 


32. 


¿Cuánto vale FND(3,4)? 


a) 3. 
b) 4. 
Cc) 5. 
d) 6. 


Considere el programa siguiente: 


100 LET Ro= 5 
110 1F FNOC"HOLA", 30 THEN LET R =R<+2 
120 FRINT KR 
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(Las instrucciones mencionadas más arriba se incluyen en este pro- 
grama) ¿Qué número se imprime en la pantalla? 

a) 5. 

b) 7. 

Cc) 2. 

d) Error. 


33. ¿Cuánto vale FNQ(3, «ADIOS»)? 


a) O. 

b) 1. 

c) —1. 
d) Error. 


34. ¿Cuánto vale 6.45*FNT(6.45)? 


a) O. 
b) 1. 
Cc) 2. 
d) 3. 


35. ¿Cuánto vale FNK$(33)? 


a) HOLA. 

b) ¡HOLA 

c) HOLAHOLA. 

d) ” ” (El texto vacío). 


36. ¿Cuánto vale FNT(FNM («HOLA») )? 


a) 0.5. 
b) 0.25. 
Cc) 0.75. 
a) 1. 
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37. ¿Cuánto vale FND(1/SQR(2),1/SQR(2)) * 5? 


a) 1. 
b) 3. 
Cc) 5. 
d) 7. 


. ¿Cuánto vale FNM(«ADIOS>»)/FNT(2)? 


a) 20. 
b) 30. 
c) 6. 
d) Error. 


. ¿Cuánto vale FNK$(«ADIOS»)? 


a) HOLAADIOS 
b) AHOLA 

c) ADIOSHOLA 
d) Es un error. 


. ¿Cuánto vale FNT(5,6)? 


a) 0.2. 
b) 0.3. 
Cc) 0.4. 
d) Es un error. 
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Capítulo 12 
e Subrutina y números aleatorios 


ESQUEMA DE CONTENIDO 


Objetivos. 
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Bibliotecas de subrutinas. 


Diagrama de barras. 


Aplicaciones. Máximo común divisor. 


Listados. 


Generación de números aleatorios. 
Números aleatorios. Cebado inicial. 


Aplicaciones. 
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12.0 OBJETIVOS 


El tema que se va a desarrollar en este capítulo es el más importante 
para la programación. 

El objetivo final de la programación es resolver problemas complejos 
para ayudarnos a utilizarlos con el mínimo de esfuerzo. 

Para que la resolución de un problema pueda realizarse libre de errores 
y lo más rápidamente posible es necesario descomponer el problema inicial 
en problemas más pequeños. 

Este es el éxito de la ingeniería; atacar los problemas por partes y re- 
solver los problemas resultantes cada vez más complicados. Piense, por 
ejemplo, en la construcción de un coche: Requiere construir muchísimas 
piezas y ensamblarlas adecuadamente. 

En este aspecto, la programación no se diferencia en nada de la 
ingeniería. En el capítulo 7 ya hemos dado una primera introducción al 
tema. 

Las instrucciones que se estudian en este capítulo son también ins- 
trucciones no estrictamente necesarias, pero que son indispensables para 
resolver programas de un grado de complejidad más elevado. 

Se introduce el concepto de subrutina que, como indica la palabra, con- 
siste en realizar una tarea subordinada a otras tareas. 

Debe abordar este capítulo con la idea de que las instrucciones son 
sencillas pero que tienen un significado profundo, que cuesta de aprender 
y de manipular. 

Hemos procurado ponerle en alerta sobre las líneas correctas de uti- 
lización de este tipo de instrucciones, pero una discusión amplia de las im- 
plicaciones que tienen en el diseño de un problema podría ser materia de 
toda una Enciclopedia. 

Con esto queremos prevenirle de la sensación de que no hay dificultad 
ninguna; desconfíe de esta postura. 

Tampoco caiga en el otro extremo, de ver dificultades en todas partes. 

La mejor manera de aprender a utilizarlas es precisamente utilizán- 
dolas. 

Cerramos el capítulo con la instrucción sobre números aleatorios. 

La posibilidad de simular hechos reales en el ordenador, lleva acom- 
pañada la necesidad de utilizar lo que llamados suerte. Todas las cosas 
que suceden en la vida ordinaria tienen un conjunto de factores que no 
podemos controlar, que dan esta diversidad de hechos que agrupamos en 
la palabra suerte. 

Es bastante corriente la opinión de que los números aleatorios sólo se 
utilizan en los programas de juegos. Ciertamente, en todos los programas 
de juegos suele haber un componente aleatorio, imprescindible para que 
funcionen. 

Sin embargo, hay muchos programas muy serios, si es que los juegos 
no se consideran serios, en los que también intervienen. 

La simulación del funcionamiento de un negocio, la simulación del fun- 
cionamiento de una nave industrial, de un vuelo, etc. son aplicaciones muy 
importantes de los números aleatorios. 

Estudie esta función con atención, pues le será muy útil. 

De todas maneras, la teoría de los números aleatorios es complicada. 


ES) 
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Aquí sólo se ha explicado muy brevemente. No intente encontrar más que 
una aproximación al problema. Si desea profundizar, debe acudir a un texto 
de matemáticas o estadística que, como puede comprender, no es el ob- 
jeto de esta Enciclopedia. 


12.1 SUBRUTINA 


Es frecuente que en los programas de cierta envergadura nos encon- 
tremos con instrucciones o, incluso grupos de instrucciones, que aparecen 
más de una vez a lo largo del listado. Sería interesante tomar estas ins- 
trucciones que se repiten y escribirlas una sola vez, formando un módulo 
que pudiera ser utilizado en aquellas partes del programa que lo requieran. 
De este modo, nos ahorraríamos el teclear varias instrucciones, evitando 
así posibles errores mecanográficos. A medida que aumenta el número de 
líneas de un programa, también aumenta la posibilidad de que cometamos 
errores al escribirlas. Por otra parte, obtendríamos un ahorro de memoria. 
Como ya sabemos, las instrucciones se almacenan en la memoria principal 
junto con los datos. Si evitamos la existencia de instrucciones repetidas, 
reduciremos el gasto de memoria. 

El BASIC, al igual que'la gran mayoría de lenguajes de programación, 
permite el empleo de un conjunto de instrucciones cuya ejecución puede 
desencadenarse desde cualquier punto del programa. Estos módulos o 
subprogramas reciben el nombre de subrutinas. Así pues, podemos decir 
que: 


Una subrutina es un conjunto de instrucciones que realizan una tarea con- 
creta. 


Se denomina programa principal al conjunto de instrucciones que no 
forman parte de ninguna subrutina. De hecho, todos los programas que 
hemos visto hasta ahora eran programas principales. 

El funcionamiento de un programa con subrutinas es el siguiente: 


En aquel punto donde debe realizarse la tarea encomendada a la su- 
brutina, se pasa control a la misma y simultáneamente se memoriza el lugar 
desde donde se produce la bifurcación. Cuando la subrutina ha terminado 
su ejecución, devuelve control a la posición del programa principal de donde 
procedía. Si a lo largo del programa se necesita realizar de nuevo la misma 
tarea, se le pasa control otra vez. Gracias a este sistema de memorización 
del punto de retorno, la subrutina devuelve siempre el control a la instruc- 
ción desde donde ha sido invocada. En la figura 1 se muestra un esquema 
del acceso a una subrutina. En la sección siguiente se describe con más 
detalle este proceso. 


12.1.1 Acceso a una subrutina 


Una subrutina en BASIC esta formada por el mismo tipo de instruccio- 
nes que el resto del programa. Acceder a una subrutina (o invocarla) sig- 
nifica pasar el control de la ejecución a la línea inicial de la misma. 
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Figura 1 Esquema de un pro- 
grama con una subrutina. Desde 
el programa principal se accede 
a la subrutina y desde ésta se re- 
torna al punto de partida. 


Para acceder a una 
subrutina se usa el GOSUB 
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A primera vista parece que la instrucción GOTO serviría para este fin. 
Con la instrucción GOTO se pasa control al número de línea que deseemos. 

Pero para acceder a una subrutina necesitamos además otra cosa. Es 
necesario memorizar el número de línea desde donde la invocamos. Puesto 
que la instrucción GOTO no realiza esta función, debemos utilizar otra 
nueva. La instrucción que nos permitirá acceder a una subrutina es la ins- 
trucción GOSUB cuya sintaxis general es 


GOSUB número de línea 


La palabra GOSUB proviene del inglés «Go subroutine» que significa 
ira una subrutina. Cuando se ejecuta la instrucción GOSUB, se pasa control 
al número de línea indicado. Este número debe corresponder al número de 
línea de la primera instrucción de la subrutina. Simultáneamente, la ins- 
trucción GOSUB memoriza su propio número de línea. Esta memorización 
es un proceso interno e invisible para el usuario. 


12.1.2 Retorno al programa principal 


Una vez finalizada la tarea, la subrutina debe retornar al programa prin- 
cipal. Necesitamos una instrucción que sepa consultar el número de línea 


Para volver al programa 
principal se utiliza la 
instrucción RETURN 
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memorizado por la instrucción GOSUB y, de este modo, averiguar qué 
punto debe devolver el control. Para realizar esta función se utiliza la ins- 
trucción RETURN, cuya sintaxis general es muy simple ya que sólo consta 
de la palabra RETURN. La palabra inglesa RETURN significa retorno. 

Cuando se ejecuta esta instrucción, se consulta el número de línea 
memorizado y se pasa control a la instrucción situada inmediatamente a 
continuación. Simultáneamente, se elimina el número de línea memorizado, 
puesto que ya ha sido utilizado y no es necesario conservarlo. Por esta 
razón, la instrucción RETURN sólo se puede emplear en el interior de una 
subrutina, ya que en un programa principal no encontraría memorizada la 
dirección de retorno, produciéndose un error. Podemos comprobarlo escri- 
biendo en modo inmediato (sin número de línea) la instrucción RETURN. 
Al pulsar la tecla de fin de línea, el BASIC nos escribirá un mensaje de error 
indicando que no encuentra la dirección donde debe retornar. 

En este punto conviene precisar un aspecto sobre esta instrucción. En 
la primera lección explicamos que la tecla de fin de línea podía venir indi- 
cada de varias maneras, como ENTER, como NEW-LINE o como RETURN, 
según el modelo de ordenador. No hay que confundir jamás el RETURN 
de la tecla de fin de línea con la instrucción de BASIC RETURN. Cuando 
nos referimos a la instrucción RETURN, esta palabra debe aparecer escrita 
con todas sus letras en la pantalla. 

Veremos a continuación un ejemplo de cómo se utiliza una subrutina. 
Supongamos que deseamos escribir una tabla de raíces cuadradas con el 
siguiente formato: 


NUM. RAIZ 
0: 
2 14142 
10 3.1622 


Como vemos, en la tabla aparecen tres líneas horizontales. Normal- 
mente emplearíamos tres instrucciones PRINT iguales colocadas en los lu- 
gares oportunos del programa. Este es un ejemplo de una tarea repetida, 
aunque en este caso sea muy sencilla. Aprovecharemos ahora los cono- 
cimientos recién adquiridos y construiremos una subrutina que imprima una 
línea. El listado del programa será el siguiente: 


10 GOSUB 200 

20 PRINT "NUM. ", "RAIZ" 
30 GOSUB 200 

40 FOR I=1 TO 10 

SO FRINT 1, SOR(I) 
60 NEXT 1 

70 GOSUB 200 

80 END 
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Mecanismo de ida y vuelta 


Figura 2 Esquema del funcio- 
namiento de la subrutina en un 
programa real. Desde el pro- 
grama principal se accede tres 
veces a la subrutina, y desde 
ésta se retorna al punto de par- 
tida. 


200 REM Impresion linea 
210 PBRINT " 
220 RETURN 


En la figura 2 presentamos el mismo programa dividido por bloques 
para indicar con claridad los lugares desde los cuales el programa principal 
remite a la subrutina. 

La subrutina devuelve el control a la instrucción GOSUB de llamada 
mediante la instrucción RETURN. 

Las flechas de la figura 2 indican este ir del programa principal a la 
subrutina y de ésta al programa principal. 

La tabla empieza con una línea horizontal, por tanto la primera ins- 
trucción será un GOSUB a la subrutina que imprime la primera raya de la 
tabla. Esta subrutina la hemos colocado en la línea 200. La primera ins- 
trucción de la subrutina es un REM con un comentario identificativo de la 
tarea que lleva a cabo. La colocación de estos comentarios es muy con- 
veniente, sobre todo si el programa contiene muchas subrutinas, puesto 
que así se facilita la comprensión de su funcionamiento. En la línea 210 es 
donde se efectúa realmente la impresión de la raya. 

Finalmente, en la línea 220, la instrucción RETURN devuelve control a 
la línea que sigue inmediatamente al GOSUB de la línea 10, es decir, que 


GO SUB 200 


FPRINT "NUM. ","RAIZ" 


GO SUBE 200 


FOR 1 = 1 TO 10 
PRINT 1, SORCI) 
NEXT 1 

GO SUB 200 


END 


200 REM Impresión de 


210 FRINT 


220 RETURN 
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Hay que separar 
las subrutinas del 
programa principal 


Subrutina es un elemento 
esencial para descomponer 
un programa en módulos 


el programa sigue por la línea 20 como indica la flecha. En ella se escribe 
el texto de la cabecera. A continuación necesitamos imprimir una nueva 
raya. Por consiguiente pasaremos control de nuevo a la subrutina 200. En 
este caso, la instrucción RETURN pasará control a la línea 40. Aquí em- 
pieza un proceso repetitivo que imprimirá los valores de la tabla. Para ello 
empleamos las instrucciones FOR/NEXT. En el interior de estas dos ins- 
trucciones se coloca la instrucción PRINT (línea 50) en donde se escribe el 
valor de la variable | y su raíz cuadrada. Al finalizar la tabla se necesita otra 
línea horizontal. Colocamos otra instrucción GOSUB para que la subrutina 
imprima una nueva línea. 

Aunque este programa es muy sencillo, incluye varios aspectos que 
conviene resaltar. En primer lugar, las subrutinas se suelen colocar al final 
del listado, es decir, con un número de línea elevado. Además, aunque este 
número de línea puede ser cualquiera, se suele escoger un número redondo 
que sea fácil de recordar, como por ejemplo 200 o 1000. Ya hemos men- 
cionado que es conveniente que la primera línea sea una instrucción REM 
que contenga un texto explicativo de la tarea que realiza la subrutina. En 
principio no hay limitación en el número de subrutinas que puede contener 
un programa. Únicamente existe el límite de la capacidad de memoria del 
ordenador. Para facilitar la comprensión del funcionamiento de un pro- 
grama, se suele colocar al principio del listado (números de línea bajos) al 
programa principal y, a continuación, las subrutinas agrupadas. 

De este modo se hace más evidente que su ejecución está subordi- 
nada al programa principal. 

Otro punto importante a tener en cuenta es que para acceder a una 
subrutina hay que utilizar obligatoriamente una instrucción GOSUB. En 
caso contrario, se producirá un error cuando se ejecute el RETURN ya que 
no encontrará memorizada la línea de retorno. Por esta razón hay que se- 
parar mediante un END o un STOP el programa principal de las subrutinas. 
En el programa anterior, si no estuviese la instrucción END de la línea 80, 
la ejecución proseguiría por la línea siguiente (la 200), entrando en la su- 
brutina de forma incorrecta (sin utilizar GOSUB) lo que daría lugar a un 
error. Puesto que generalmente, las subrutinas se colocan a continuación 
del programa principal, colocaremos siempre una instrucción END, STOP 
o GOTO al final del mismo. 


12.1.3 Modularización de los programas 


En el capítulo 7 del segundo tomo estudiamos las técnicas de diseño. 
En él vimos que para construir un programa era muy conveniente dividir el 
problema en varios bloques más sencillos. También estudiamos el diseño 
jerárquico que consistía en aumentar progresivamente el nivel de detalle de 
las operaciones que efectuaba cada bloque. Las subrutinas nos permitirán 
seguir con gran facilidad estas técnicas. 

Una subrutina es un modulo que realiza una determinada tarea. Por 
tanto, podemos asimilarla a un bloque de proceso, del cual desconocemos 
los detalles por el momento. De esta forma descomponemos un programa 
en varios apartados, cada uno de los cuales se resolverá mediante una 
llamada a una subrutina. En el programa anterior hemos supuesto inicial- 
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mente que disponíamos de una subrutina que era capaz de imprimir una 
línea de guiones. Entonces, cada vez que en el programa principal hemos 
necesitado la impresión de una línea, nos hemos limitado a invocar la su- 
brutina. 

Ciertamente, en el programa anterior la subrutina realiza una tarea tan 
sencilla que no se aprecia ahorro de tiempo de escritura ni de líneas de 
programa. Pero incluso en este caso, el empleo de subrutinas nos reporta 
algunas ventajas. 

En primer lugar, si construimos los diversos pasos de un programa a 
base de subrutinas, nos será más fácil resolverlo. Al concentrarnos en un 
grupo relativamente pequeño de instrucciones que componen una subru- 
tina, tendremos menos dificultades en realizar un buen diseño. Entonces, 
una vez construida una subrutina, nos olvidamos de ella y pasamos a la 
siguiente, donde nos concentramos exclusivamente en la tarea que debe 
realizar ésta. Este proceso lo repetiremos hasta completar el programa. 

Construir un programa de esta forma comporta dos ventajas adicio- 
nales: 


— La primera de ellas es que los errores se localizan rápidamente. Puesto 
que cada subrutina realiza una tarea distinta, cuando se produzca un 
error en el funcionamiento del programa sabremos enseguida en qué 
subrutina se ha producido. Puesto que una subrutina contiene menos 
líneas que un programa completo, la detección y correción de errores 
será más cómoda. Por ejemplo, en el programa anterior, probable- 
mente, la línea de guiones nos haya quedado demasiado corta o de- 
masiado larga. Entonces sabemos enseguida que debemos intervenir 
en la subrutina 200 y, más concretamente, en la línea 210. Realizaremos 
la corrección oportuna, insertando o borrando guiones según el caso. 


— La segunda ventaja, y muy importante, es que los módulos se pueden 
probar por separado, independientemente del programa principal y del 
resto de subrutinas. Supongamos que acabamos de corregir la línea 210 
y queremos ver cómo funciona ahora. Para probarla utilizaremos una 
instrucción GOSUB inmediata, es decir, sin número de línea previo. Es- 
cribiremos: 


GOSUB 200 


De este modo accederemos directamente a la subrutina, la cual im- 
primirá la línea de guiones con la longitud corregida. Si la nueva línea no 
es todavía de nuestro agrado, la corregiremos otra vez y utilizaremos de 
nuevo la instrucción GOSUB para probarla. Fijémonos que no es posible 
utilizar la instrucción GOTO para probar una subrutina. Si escribimos 


GOTO 200 


se producirá un error en la instrucción RETURN. 


La subrutina permite 

la prueba del programa 
y la detección de 
errores fácilmente 


Las subrutinas en BASIC 
utilizan las variables para 
comunicar los resultados 
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Supongamos que ya hemos corregido la línea y que probamos todo el 
programa. Observamos que gracias al empleo de una subrutina, las tres 
líneas de que consta la tabla han quedado corregidas simultáneamente. Si 
en lugar de una subrutina hubiésemos utilizado tres instrucciones PRINT, 
nos hubiéramos visto obligados a repetir la corrección tres veces y a probar 
el programa globalmente. En este caso, el programa es muy sencillo y no 
cuesta demasiado probarlo completo. 

Sin embargo, en los programas muy largos puede resultar muy en- 
gorroso ejecutarlo por completo, únicamente para corregir un pequeño de- 
talle. A esto nos referíamos cuando decíamos que trabajando con subruti- 
nas es muy fácil localizar la causa de un funcionamiento incorrecto. Si en 
la tabla impresa las líneas no tienen la longitud adecuada, sabemos en- 
seguida que hay que intervenir en la subrutina que la imprime. Además, al 
corregirla, todas las líneas de la tabla (que son tres) quedan automática- 
mente corregidas puesto que el mismo módulo es el que se encarga de 
dibujarlas todas. 

Así por ejemplo, si en lugar de una línea de guiones, quisiéramos que 
aparecieran líneas formadas por asteriscos (+), únicamente tendríamos que 
cambiar la línea 210 por 


210 FERINT O "re HI 


Una vez modificada la subrutina, veremos que al probar el programa, 
automáticamente las tres líneas estarán formadas por asteriscos (+). 

De todo lo que hemos mencionado anteriormente, sacamos la conclu- 
sión de que una subrutina puede considerarse como una «caja negra». Esto 
significa que desde el punto de vista del programa principal, no nos importa 
cómo está construida la subrutina, ni qué instrucciones contiene. Simple- 
mente nos interesa qué tarea realiza. Cuando necesitemos efectuar dicha 
tarea, realizaremos una llamada a la subrutina mediante la instrucción 
GOSUB. 

En la subrutina del ejemplo, su funcionamiento era autónomo y no ne- 
cesitaba ninguna información procedente del programa principal. No siem- 
pre ocurre así. A menudo, la tarea que realiza la «caja negra» necesita 
conocer datos del programa principal. Asimismo, a veces la tarea consiste 
precisamente en efectuar algunos cálculos con datos procedentes del pro- 
grama principal y devolver los resultados. Por tanto, habrá algunas varia- 
bles que servirán para la comunicación de entrada-salida de la subrutina. 
De hecho, actuarán de modo parecido a los argumentos de las funciones. 
No debe extrañarnos el parecido entre funciones y subrutinas, pues ambas 
se pueden considerar como «cajas negras» que actúan donde se les in- 
voca. No obstante hay algunas diferencias. 

En primer lugar, todas las funciones devuelven un único valor como 
resultado, mientras que las subrutinas pueden devolver varios (o incluso 
ninguno como en el ejemplo que nos ocupa). 

Además, los valores de los argumentos que se pasan a la función no 
pueden ser modificados por la propia función. Por ejemplo, en el segmento 
de programa siguiente 
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10 LET A=16 
20 LET E=SGER (A) 
30 PRINT A,B 


está claro que la función SQR no modifica en absoluto el valor de A. Por 
el contrario, en las subrutinas está permitida la modificación de los valores 
de los argumentos de entrada. De hecho, una misma variable se puede 
utilizar para enviar datos a la subrutina y para que ésta los devuelva al 
programa principal. 

A continuación veremos un par de ejemplos donde aplicaremos estos 
conceptos de variables de entrada-salida. El primero de ellos consistirá en 
una modificación del programa anterior, en el cual la subrutina 200 servirá 
para imprimir una línea formada por un símbolo cualquiera, guiones (-—), 
signo igual (=), etc. El listado es el siguiente: 


10 LET A$="="2 GOSUE 200 
20 PRINT "NUM, ", "RAIZ" 
30 LET As$="-"1 GOSUBE 200 
40 FOR l=1 TO 10 

50 ERINT 1,SGRC(1) 
60 NEXT 1 

70 LET A$="="+* GOSUB 200 
BO END 

200 REM Impresion linea 

210 FOR J=1 TO 4 

220 FRINT A$s 

So NEXT J 

240 BRINT 

250 RETURN 


En este programa, cuando queremos trazar una línea, pasamos control 
a la subrutina 200 como antes. Pero ahora le pasamos la variable A$ que 
contiene el símbolo con el cual se deberá trazar la línea. Por tanto, A$ es 
el argumento de entrada a la subrutina. Como vemos, las rayas estarán 
formadas por un conjunto de signos igual (=), por guiones (—) y otra vez 
por signos igual (=), tal como se aprecia en la líneas 10, 30 y 70. Como es 
lógico, la subrutina estará construida de modo distinto. Para trazar la línea 
emplearemos un bucle, en el cual se imprimirá un símbolo cada vez. Co- 
locamos además un punto y coma (;) al final de la instrucción PRINT para 
que los símbolos aparezcan impresos de forma contigua y no se produzca 
salto de línea. Las instrucciones 210 y 230 son las que establecen el lazo. 
La línea 220 es la que imprime el símbolo. 

La subrutina es independiente del símbolo que contenga A$. Ella se 
limita a construir la línea con el símbolo contenido en A$ y que le será su- 
ministrado por el programa principal. Finalmente, la línea 240 se utiliza para 
que se produzca el salto de línea. 

Si no estuviera presente, el cursor se quedaría justo al lado del último 
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símbolo de la línea y entonces el siguiente PRINT del programa principal 
empezaría en esta posición, originándose una tabla totalmente deformada. 
La línea 250 devuelve control al programa principal. 

No olvidemos nunca que en BASIC, todas las variables son globales; 
es decir, que su ámbito de validez abarca al programa principal y a las 
subrutinas. Por tanto, sería incorrecto utilizar la variable | para el bucle de 
la línea 210, puesto que esta variable se usa ya en la línea 40. 

Notemos que el programa principal no ha sufrido variación excepto por 
la variable A$, claro está. Puesto que lo único que se ha modificado es la 
impresión de las líneas de la tabla y de esta tarea se encargaba una su- 
brutina, debemos introducir la modificación precisamente en esta subrutina, 
dejando prácticamente invariable el resto del programa. 

El programa anterior contenía un ejemplo de subrutina con un argu- 
mento de entrada y ninguno de salida. En el siguiente ejemplo veremos un 
programa con una subrutina que tiene los dos tipos de argumentos. 

Como sabemos, en BASIC los datos se encolumnan siempre por la 
izquierda. Si los datos son de tipo textual no hay ningún problema puesto 
que coincide con la forma normal de escribirlos. Por el contrario, los datos 
numéricos, si tienen distinto número de cifras, quedan mal encolumnados. 
Por ejemplo, el siguiente programa: 


10 FOR 1=0 TO 100 STEP 10 
ZO LET C=1*I 

GO ARAS de Ds 

40 NEXT 1 


50 5700 


Escribirá una tabla con el siguiente formato: 


0 0 

10 100 
20 400 
30 900 
40 1600 
50 2500 
60 3600 
70 4900 
80 6400 
90 8100 
100 10000 


Como podemos apreciar, las dos columnas de números no quedan ali- 
neadas de la forma habitual. Algunas versiones sofisticadas del BASIC in- 
cluyen instrucciones especiales para solucionar esta cuestión. Pero si no 
disponemos de ellas, nos podemos construir una subrutina que nos re- 
suelva el problema. El argumento de entrada de esta subrutina será el nú- 
mero que queremos encolumnar. 
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El argumento de salida será un texto que contendrá lás cifras del nú- 
mero, más la cantidad suficiente de espacios en blanco colocados a la ¡z- 
quierda. El listado del programa será el siguiente: 


10 FOR =0 TO 100 STEFR 10 
ZO LET C=1*1: GOSUB 500 
30 FRINT 1,0% 
40 NEXT 1 
530 END 
500 REM Alineado numeros 
510 LET As=STR$(C) 
520 LET L=LEN(AS) 
330 FOR J=l+1 TOG6G 


SAD ET As=" "As 
5530 NEXT J 
60 RETURN 


Como podemos apreciar, las dos columnas de números no quedan ali- 
neadas de la forma habitual. Algunas versiones sofisticadas del BASIC in- 
cluyen instrucciones especiales para solucionar esta cuestión. Pero si no 
disponemos de ellas, nos podemos construir una subrutina que nos re- 
suelva el problema. El argumento de entrada de esta subrutina será el nú- 
mero que queremos encolumnar. 

El argumento de salida será un texto que contendrá las cifras del nú- 
mero, más la cantidad suficiente de espacios en blanco colocados a la ¡z- 
quierda. El listado del programa será el siguiente: 


En el programa principal sólo introducimos dos modificaciones. La pri- 
mera consiste en pasar control a la subrutina 500 una vez calculado el valor 
del cuadrado C. La segunda modificación es sustituir el valor de C en la 
línea 30 por la variable que constituye el argumento de salida de la subru- 
tina, en este caso A$. Analicemos un poco cómo funciona la subrutina 500. 

La primera operación que se realiza es transformar el valor del número 
en un texto formado por sus cifras (línea 510). Para ello empleamos la fun- 
ción STR$. La variable A$ contiene las cifras de C pero no sabemos cuán- 
tas. Para averiguarlo emplearemos otra función intrínseca, la función LEN. 
El resultado se almacena en la variable L. Para poder alinear los números 
necesitamos saber la anchura total de la columna que utilizamos para es- 
cribirlo. El número mayor que queremos escribir es 10000 que tiene cinco 
cifras. Para trabajar con comodidad, consideraremos una columna con un 
total de 6 posiciones. De acuerdo con esto, si un número tiene un total de 
L cifras, habrá que añadirle 6-L espacios en blanco por la izquierda. Así, al 
número 100 con tres cifras le añadiremos tres espacios en blanco y al nú- 
mero 10000 sólo le añadiremos 6-5=1 espacio. 

Para hacer esta operación, utilizamos el bucle formado por las líneas 
530 y 550. El bucle va desde a L+ 1 que corresponde a la primera posición 
fuera de las cifras, hasta la longitud total de la columna que es 6. En la línea 
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540 se añaden los espacios en blanco a la variable A$. Mediante el símbolo 
de concatenación (+) añadimos espacios en blanco a la izquierda de 48. 
Una vez finalizado el bucle, A$ contiene siempre un texto de longitud 6, con 
las cifras de C colocadas en su parte derecha. 

Al probar el programa veremos que el resultado es el siguiente: 


0 0 
10 100 
20 400 
100 10000 


Como es lógico, dado el planteo del programa, sólo ha quedado ali- 
neada la segunda columna. Ahora bien, gracias a la-utilización de una su- 
brutina para el alineado de números, si queremos alinear también la primera 
columna, la solución es extraordinariamente fácil. Tomemos la subrutina 
500. Consideremos que se trata de una caja negra a la que se suministra 
C y nos devuelve A$ con las cifras alineadas. Nada nos impide traspasar 
el valor de / a C y enviarlo a la subrutina la cual nos devolverá A$ con las 
cifras alineadas. Almacenaremos este valor de A$ en otra variable, por 
ejemplo Bf$, a fin de que no se destruya con el siguiente acceso a la su- 
brutina. 

El listado del programa principal quedaría de la siguiente manera: 


10 FOR 1l=0 TO 100 STER 10 

ZO LET C=1:GOSUB SOO0:LET B$=A$ 
30 LET C=1x*x1% GOSUE 500 

40 FRINT E$, AR 

30 NEXT. 1 

60 END 


Si ahora ejecutamos el programa, las dos columnas de números que- 
darán alineadas. Como se puede apreciar, la utilización de las subrutinas 
facilita enormemente la programación. 

En este último programa, las dos columnas de números se construyen 
del mismo tamaño, 6 espacios. Para la primera columna este valor es algo 
grande. Se puede pensar en una modificación de modo que cada columna 
tenga su propia anchura. Además, a fin de aprovechar intensivamente la 
subrutina 500 escribiremos tres columnas, cada una con una anchura di- 
ferente. En la subrutina haremos únicamente una modificación. Cambia- 
remos el número 6 de la instrucción 530 por una N. La variable N contendrá 
la anchura de la columna correspondiente al actual de C. El listado completo 
será: 


10 FOR I=0 TO 100 STER 10 
20 LET ON=4 1 LET C=lI 
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30 GOSUB 500 2: LET Es=A$ 
40 LET N=6 1: LET C=1Ix*I 
S0 GOSUB 500 2 LET C$=A0% 
60 LET N=98 3: LET C=Ix1*1 
70 GOSUR 500 
30 PRINT E$:0$:A0$ 
30 NEXT 1 
100 END 
500 REM Alineado numeros 
510 LET A$=STR$(C) 
320 LET L=LEN(AS) 
330 FOR J=l+1 TO N 
5340 LET A$=" "+0$ 
550 NEXT J 
300 RETURN 


En este programa escribimos tres columnas que corresponden al valor 
de /, su cuadrado y el cubo. Las anchuras asignadas a cada columna son 
4, 6 y 8 espacios respectivamente. Para cada columna hacemos las si- 
guientes operaciones: Asignamos a N la anchura; en C colocamos el valor 
a encolumnar y pasamos control a la subrutina. Esta nos devuelve A$, que 
en los dos primeros casos necesitamos almacenarlo en variables auxiliares 
B$ y C$. Finalmente, en la línea 80 escribimos los tres valores. Fijémosnos 
que utilizamos un punto y coma (;) para separar las tres variables. No es 
necesario utilizar la coma, puesto que las propias variables contienen el 
dato encolumnado. La subrutina 500 tiene dos argumentos de entrada, la 
variable C y la N. Tiene además, un argumento de salida formado por la 
variable A$. 

Al ejecutar el programa veremos que se imprimen tres columnas de 
números perfectamente alineados por la derecha. En este punto conviene 
hacer una precisión. La subrutina 500 alineará los números de forma co- 
rrecta únicamente si éstos son enteros, es decir, sin decimales. Si la varia- 
ble C contiene un número fraccionario, la subrutina no tiene en cuenta el 
punto decimal y el número queda mal alineado. Mucho peor es el resultado 
si el número tiene el formato exponencial, como por ejemplo 12E+8. Cons- 
truir una subrutina para alinear toda clase de números es algo complicado 
y, por otra parte, para la mayoría de casos, el programa anterior nos servirá 
perfectamente. 

Un punto que habremos notado en los dos programas anteriores, es 
que la instrucción RETURN conoce la dirección de retorno no sólo respecto 
al número de línea, sino que también toma en consideración los dos pun- 
tos (:) que separan varias instrucciones dentro de una línea. Un ejemplo lo 
tenemos en la línea 20 del programa principal presentado. 


RO LET C=l 1 GOSUB 500 3: LET Bs$=A$ 


En ella, la instrucción GOSUB memoriza el número 20 (número de lí- 
nea) y también que ella es la segunda instrucción de la línea. Entonces, la 
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instrucción RETURN devolverá control a la instrucción siguiente (no a la 
línea siguiente) efectuándose el LET de la variable B$. El comportamiento 
de la instrucción RETURN es distinto del de la instrucción GOTO, la cual 
se dirige siempre a un número de línea completo y la ejecución continúa 
por la primera instrucción de la línea. 

Una subrutina puede contener más de una instrucción RETURN. Siem- 
pre debe contener al menos una, pues de lo contrario no se producirá re- 
torno al programa principal. Por ejemplo, en la subrutina de alinear núme- 
ros, puede ocurrir que el número tenga más cifras que la anchura de la 
columna. Esto se puede controlar; una posible actuación sería que en este 
caso añadiéramos un asterisco (*) al principio de las cifras para indicar este 
hecho. El nuevo listado de la subrutina sería el siguiente: 


500 REM Alineado numeros 
510  LET A$S=STR$(C) 

3520  LET L=LEN(AS) 

Ma 1F L>3N THEN GOTO 590 
3540 FOR J=L+1 TON 

O LET As=" "+A$ 

360 NEXT J 

370 RETURN 

380 LET A$="*"+A$ 

5390 RETURN 


La instrucción IF de la línea 530 dirige el control a la línea 580 o a la 
540 según L sea mayor que N o no. Si lo es, en la línea 580 se concatena 
un asterisco de aviso. En caso contrario se sigue el proceso ya conocido. 
Como vemos, la subrutina tiene dos puntos de retorno, las líneas 570 y 590. 
Por otra parte, la instrucción RETURN puede colocarse también en una 
línea múltiple. Utilizando esta posibilidad, la subrutina anterior queda más 
simplificada: 


200 REX Alineado numeros 

510 LET AS=STR$(C) 

320 ET L=LEN(AS) 

530 (1% LIN THEN LET As$="x"+*A%8 1 RETURN 
540 FOR J=L+1 TO N 

E) LET A$=" "+A% 

560 NEXT J 

3570 RETURN 


En este caso, si la condición de la instrucción IF de la línea 530 se 
cumple, se pasa control a las instrucciones que siguen a la palabra THEN. 
Puesto que la última de ellas es un RETURN, las instrucciones siguientes 
(540 a 570) no tienen efecto. 
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Conviene insistir en que la utilización de subrutinas tiene la gran ven- 
taja de que se pueden probar de forma autónoma. Además esta prueba 
puede realizarse en modo inmediato. Por ejemplo, si escribimos: 


LET O N=6 3 LET C=25 1 GOSUB 500 : FRINT As 


En pantalla aparecerá el número 25 precedido de cuatro espacios en 
blanco. Para comprobar que funcione en el caso de que el número de cifras 
supere a la anchura, escribiremos: 


LE Meza LET C=459 1 GOSUE 500 2 FRINT As 


En este caso, en pantalla debe aparecer el resultado (el número 459) 
precedido de un asterisco. Una vez hemos comprobado que la subrutina 
funciona bien por separado, ya podemos utilizarla dentro de un programa 
principal. 

El programa principal del caso anterior, lo modificaremos de modo que 
se empleen números más anchos que el tamaño de la columna. 

En primer lugar modificaremos el bucle de la línea 10 a 


10 FOR I=0 TO 500 STEF 30 


Para leer con más claridad los números modificaremos también la 
línea 80 a 


80 PRINT b$s" "pop" "jas 


de esta manera colocamos un espacio de separación entre ellos. 

Ejecute el programa y observe que los últimos números (no podemos 
precisar cuántos porque depende de la versión del BASIC) de la tabla apa- 
recerán con asteriscos porque su escritura requiere más espacios que la 
columna que hemos diseñado. 

También observe que algunos números aparecen en formato expo- 
nencial o científico (tampoco podemos precisar cuántos, pues depende de 
la versión del BASIC). 

El hecho de que escriba el número con formato exponencial no nos 
debe preocupar pues estamos pensando en alinear el texto del número por 
la derecha. El hecho que realmente interesa aquí es si cabe o no cabe en 
la zona que hemos reservado. 

Observe también que cuando la subrutina nos pone un asterisco deja 
el resultado con una cadena de caracteres más larga que el ancho de la 
columna. Esto no es correcto ya que diseñamos la subrutina para asegurar 
que siempre nos devuelva el resultado con la longitud de la columna exacta. 
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Se puede evitar esto mediante la modificación de la instrucción 530 
que debe quedar como 


330 TF LéN THEN LET AS="x"+LEFTS(A4$,N-1) 3 RETUEN 


de esta manera se aprecia la utilidad del asterisco, pues indica que el re- 
sultado no es correcto ya que se ha cortado para que se mantenga un re- 
sultado con el número de columnas deseado. 

El N-7 en la función LEFT$ debe colocarse para que la longitud sea 
de N exactamente ya que hemos añadido un asterisco. 


12.1.4 Acceso de subrutina a subrutina 


Desde una subrutina se puede pasar control a otra subrutina, actuando 
la primera como programa principal respecto a la segunda. A su vez, desde 
ésta se puede pasar control de nuevo a otra subrutina y así sucesivamente 
tantas veces como deseemos. El BASIC memoriza la nueva dirección de 
retorno, pero ¿qué ocurre con la memorización precedente? En realidad 
esta cuestión ya está prevista y la zona de memoria donde se almacenan 
las direcciones de retorno dispone de varias posiciones, habitualmente un 
total de 256. Entonces, cuando desde una subrutina se llama a otra, se 
memoriza la nueva posición de retorno sin destruir la anterior. Cuando se 
efectúa el RETURN de la última subrutina, se borra la última memorización. 
Las sucesivas instrucciones RETURN que se vayan efectuando, van eli- 
minando las direcciones almacenadas hasta que al volver al programa prin- 
cipal esta zona de memoria quedará vacía. 

Veremos a continuación un ejemplo de acceso a una subrutina desde 
otra subrutina. En el programa anterior nos sería útil disponer de un módulo 
que nos separará grupos de tres cifras mediante puntos. Por ejemplo, el 
número veintisiete millones lo escribiría de la forma 27.000.000. Conviene 
remarcar que en BASIC este número sería erróneo, puesto que el punto se 
utiliza para separar los decimales. Para solucionar esta dificultad, alma- 
cenaremos las cifras junto con los puntos en una variable textual. Como ya 
sabemos, un dato textual puede contener cualquier conjunto de símbolos 
puesto que no son analizados. 

Construiremos pues, una subrutina que realice esta función. El me- 
canismo básico consiste en rastrear el conjunto de cifras empezando por 
la derecha, e insertar un punto cada vez que la posición de las cifras sea 
múltiplo de tres. El listado de la subrutina es el siguiente: 


600 REM Colocacion puntos 
610 LET X$="" 
620 FOR K=1 TO L 


630 LET X$=MID$(A$, L-K+1, 1)+X% 
640 IF K=3x*INT(K/3) AND KOL THEN LET X$="."+X$ 
650 NEXT K 


660 LET A$=X$ 1 LET L=LEN(AS) 
670 RETURN 
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Al diseñar este módulo, hemos de tener en cuenta que se accederá a 
él desde la subrutina 500. Por tanto, los nombres de las variables que se 
utilizarán para la comunicación de datos deben coincidir. En este caso son 
dos, el conjunto de cifras contenido en Af y la lontitud almacenada en L. 
Otro punto a considerar es que no debe existir coincidencia de nombres 
entre las variables internas de este módulo y el resto de variables del pro- 
grama. 

El funcionamiento es el siguiente. En la línea 610 definimos una varia- 
ble auxiliar, X$, donde iremos traspasando las cifras y los puntos de se- 
paración. Seguidamente estableceremos el bucle de rastreo. Utilizamos la 
variable K cuyo valor variará de 1 a L. En la línea 630 traspasamos una 
cifra de A$ a la variable X$. La función MID$ nos extrae una cifra de A$. 
Puesto que el orden de extracción es de derecha a izquierda, la posición 
a extraer se calcula mediante la fórmula L—K+ 1, de modo que cuando K 
vale 1, la cifra es la que ocupa la posición L y cuando K vale L, la cifra es 
la que ocupa la posición 1. La línea 640 es la que decide si hay que colocar 
un punto. La primera parte de la pregunta K=3*INT(K/3) sirve para deter- 
minar si K es múltiplo de 3 como ya sabemos. En principio, si Kes múltiplo 
de 3 hay que insertar un punto en X$. Sin embargo, hay que controlar que 
la inserción del último punto se realice únicamente si hay al menos una cifra 
más. De lo contrario, se producirían casos como el siguiente: 


100000 se convertiría en .100.000 


ya que el 1 ocupa la posición 6 que es múltiplo de 3. Para evitar este pro- 
blema se añade una segunda parte a la pregunta de modo que no se pro- 
duzca inserción si se trata de la última cifra. Una vez finalizado el bucle, 
debemos rehacer las variables de comunicación. Colocamos la variable X$ 
en Af$ puesto que ésta es la que utiliza el módulo que lleva a esta subrutina. 
Asimismo, actualizamos el valor de L, puesto que la longitud de A$ ha su- 
frido variación al añadir puntos entre las cifras. 

Antes de retocar el programa principal, probaremos esta rutina por se- 
parado para comprobar su funcionamiento. Para ello, le pasaremos la va- 
riable A$ con las cifras y L con el número de cifras. 

Ejemplos: 


LET A$="1000" 1 LET L=4 : GOSUB 600 : PRINT As 


El resultado será 1.000 

LET A$="123456" : LET L=6 : GOSUE 600 : FRINT As 
El resultado será 123.456 

LET A$="12345678" 1 LET L=8 : GOSUB 600 : PRINT AS 


El resultado será 12.345.678 
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LET As="543" : LET L=3 1: GOSUB 600 : PRINT As 


El resultado será 543 


Una vez realizadas las pruebas de comprobación, ha llegado el mo- 
mento de modificar el programa inicial. La inserción de los puntos de se- 
paración deberá efectuarse después de convertir el número en su equiva- 
lente textual y antes de proceder a su encolumnado. Esto es lógico, puesto 
que la inserción de puntos modifica la longitud del número y por tanto dis- 
minuye la cantidad de espacios en blanco que se dejarán a su izquierda. 
De todo lo que acabamos de decir se deduce que este módulo deberá in- 
vocarse después de la línea 520 de la subrutina de alineado. Por tanto, en 
esta subrutina añadiremos la línea siguiente: 


Pda GOSUBE 600 


No hace falta añadir nada más, puesto que hemos tenido la precaución 
de escoger las variables de comunicación con los mismos nombres. Si eje- 
cutamos ahora el programa completo veremos que se imprime una tabla 
en la cual los números están escritos en el formato al que estamos habi- 
tuados. Antes habrá que colocar la línea 10 inicial, es decir: 


10 FOR 1=0 TO 100 STER 10 


Acabamos de ver un ejemplo de cómo se llama a una subrutina desde 
otra. Pero además este programa constituye un buen ejemplo de cómo el 
diseño modular facilita enormemente la programación. La colocación de 
puntos para separar grupos de cifras es un problema que hemos resuelto 
por separado, construyendo un módulo que lo realizará. Esto nos ha per- 
mitido además comprobar de forma autónoma que el diseño era acertado 
y el funcionamiento correcto. 

Una vez llegados a este punto nos podemos olvidar del funcionamiento 
interno de esta subrutina y considerarla como una «caja negra» a la cual 
se le pasa un conjunto de cifras en A$, y nos lo devuelve con las cifras 
separadas por puntos, sin importar cómo lo ha hecho. De esta forma, en 
la subrutina 500 utilizamos este módulo simplemente colocando la línea 
525. Sabemos que después de efectuarse esta instrucción, la variable A$ 
contendrá los puntos de separación y no hemos de preocuparnos en ab- 
soluto del modo cómo lo ha hecho. 

Otro punto importante a considerar es que en el programa inicial sólo 
se ha efectuado una modificación (la línea 525) y en cambio, las tres co- 
lumnas se han visto afectadas por la modificación. Esto se debe a que el 
proceso de alineado se efectúa siempre a través de las mismas subrutinas. 
Si en lugar de emplear una subrutina hubiéramos repetido las instrucciones 
para todas las columnas, el programa resultante sería tres veces más largo. 
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12.1.5 Bibliotecas de subrutinas 


A menudo ocurre que en programas diferentes se emplean los mismos 
módulos, o al menos, parte de ellos. Este hecho ha originado la idea de 
construir una biblioteca de subrutinas. En esta biblioteca tendríamos una 
serie de subrutinas de uso general de modo que pudiéramos utilizarlas en 
varios programas. Las dos subrutinas del programa anterior constituyen un 
buen ejemplo de subrutinas de uso general. Las bibliotecas se almacenan 
en dispositivos magnéticos de modo que puedan cargarse en el ordenador, 
sin tener que teclearlas de nuevo. Una vez recuperadas del dispositivo de 
almacenamiento las subrutinas que necesitemos, se escribe el programa 
principal que las utiliza. 

Puesto que en BASIC, la recuperación de instrucciones de un dispo- 
sitivo magnético siempre es completa, conviene repartir las subrutinas en 
varias bibliotecas. En cada una de ellas colocaremos las subrutinas de ca- 
racterísticas afines. Este procedimiento nos evitará que al recuperar una 
biblioteca nos encontremos con un gran número de subrutinas innecesarias 
en aquel programa concreto. A pesar de este reparto en varias bibliotecas, 
no siempre se puede evitar el hecho de que nos encontremos con subru- 
tinas que no son necesarias en nuestro programa. En este caso las borra- 
remos para que no consuman memoria ni alarguen innecesariamente el 
listado del programa. 

Un buen conjunto de subrutinas repartidas en varias bibliotecas es de 
gran ayuda para programar con rapidez y fiabilidad. Es difícil dar normas 
generales sobre qué tipo de subrutinas se incluirán en bibliotecas. Esto de- 
pende de los intereses de cada usuario. No obstante se pueden dar algunas 
orientaciones generales. 


1. Se mantendrá una lista con los números de línea por donde empieza 
cada subrutina. Se procurará que estos números sean exactos y espacia- 
dos de 100 en 100. Además serán números grandes (mayores de 1000 al 
menos), de modo que queden situados al final del programa. 


2. Las subrutinas no deben contener demasiados números de línea, ex- 
cepto en casos especiales. En todo caso, conviene subdividirla en sub- 
módulos. 


3. Nunca se almacenará una subrutina en una biblioteca si no está com- 
probada exhaustivamente. En caso contrario, nos encontraríamos con que 
el error se ha propagado a todos los programas que la utilizan. 


RESUMEN 


La necesidad de ahorrar repeticiones de operaciones que se rea- 
lizan frecuentemente nos obliga a considerar una idea de módulo. 

Los módulos se denominan subrutinas, que son un conjunto de 
instrucciones que pueden ejecutarse desde cualquier punto del pro- 
grama principal. 

El conjunto de instrucciones que no pertenecen a ninguna subru- 
tina se denomina programa principal. 


El funcionamiento de las subrutinas es el siguiente: 


— Desde cualquier punto de un programa se puede invocar a una 
subrutina. 


— En este momento se accede al grupo de instrucciones que ha sido 
llamado y se ejecutan. 


— Cuando termina este grupo de instrucciones se devuelve el control 
a la instrucción que la ha llamado. 


Es necesario, para poder obtener un funcionamiento como el des- 
crito, que se memorice la dirección de retorno, es decir, qué instruc- 
ción la ha llamado. 

La invocación a una subrutina se hace mediante la instrucción: 


GOSUB <número de línea> 


El efecto de-esta instrucción es semejante al GOTO pero con el 
efecto adicional invisible para el programador de memorizar desde 
qué punto del programa ha sido invocada. 

Una vez transferido el control a las instrucciones que componen 
la subrutina se ejecutan normalmente. 

La identificación para acabar una subrutina es la instrucción RE- 
TURN. 

Esta instrucción tiene la misión de consultar el número de línea 
en la memoria de direcciones y realizar a su vez un GOTO a la línea 
memorizada, eliminando este número de línea de la memoria de di- 
recciones. 

Esta instrucción sólo puede utilizarse como final de una subrutina. 
Si se utiliza en el programa principal, no se encuentra línea de retorno 
memorizada y, por lo tanto, se comete un error. 

La memorización de direcciones en la manipulación de subrutinas 
es más eficiente que en el caso del GOTO. Para el GOTO debemos 
enviar siempre el programa al inicio de una línea. En cambio, la ins- 
trucción RETURN devuelve el control mediante un GOTO a una ins- 
trucción que puede estar situada en el interior de una línea. 

Este mecanismo está controlado por el lenguaje BASIC y es inac- 
cesible para el programador. 

En ningún caso se debe confundir la instrucción RETURN del BA- 
SIC con la tecla de fin de línea que en algunos ordenadores lleva el 
nombre de RETURN. 

En BASIC es a veces difícil identificar dónde empiezan las su- 
brutinas, pues, son números de líneas iguales que los del programa 
principal. Es conveniente, pues colocar los oportunos REM para iden- 
tificar los inicios de las subrutinas y, a ser posible, agruparlas todas 
al final del programa. 

Es mejor utilizar como numeración para la sentencia inicial de 
las subrutinas números fáciles de recordar tales como 100, 1000, 
5500, etc. 

Debe evitarse entrar en una subrutina si no es mediante la ins- 
trucción GOSUB pues al alcanzarse la instrucción RETURN se pro- 
duce un error. 
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La separación del programa principal del bloque de subrutinas se 
hace mediante una instrucción END o STOP. Si no se coloca, el pro- 
grama continúa por las líneas de la primera subrutina hasta alcanzar 
inevitablemente el RETURN y obtener un error, además de haber eje- 
cutado unas sentencias innecesarias. 

La subrutina es la herramienta básica para la descomposición del 
programa en procesos. 

Permite que nos concentremos en pocas instrucciones. 

Cuando tenemos errores es más fácil de detectar dónde están y 
corregirlos. 

Cuando se corrige un error en una subrutina se corrige en todos 
los lugares que la utilizamos. Por eso, aunque las tareas sean muy 
sencillas, la utilización de subrutinas reporta ventajas. 

La subrutina se comporta, desde el punto de vista del programa 
principal, como el realizador de tareas completas, o caja negra, por lo 
que no importa cómo está construida ni qué instrucciones contiene, 
nos interesa solamente la tarea que realiza. 

La comunicación de datos entre el programa principal y las su- 
brutinas se hace mediante argumentos que, a diferencia de las fun- 
ciones, son variables del programa que el programador destina a tal 
efecto. 

Las variables que se utilizan como argumento pueden modificarse 
en la subrutina; esto las diferencia de las funciones. 

Esta manera de pasar argumentos, de hecho utiliza las mismas 
variables que el BASIC, es cómoda pero tiene sus riesgos sobre todo 
en la utilización de las variables de control de los bucles. 

Una subrutina puede contener más de una instrucción RETURN, 
aunque al ejecutarse sólo actúa uno. 

La utilización de subrutinas no está limitada a un nivel sino que 
puede llamarse a una subrutina desde otra subrutina. 

Esta posibilidad ya está prevista en la memorización de direccio- 
nes. Se almacenan de tal manera que el RETURN toma la última di- 
rección memorizada y la elimina con lo que la nueva dirección de re- 
torno es la anterior de la que se ha utilizado más recientemente. 

En cierto modo, las subrutinas permiten que el programador au- 
mente las instrucciones elementales que tiene la máquina. Construye 
tareas más complicadas que puede utilizar en diversos programas. 

El almacenamiento en registros magnéticos de estas subrutinas 
se denomina biblioteca de subrutinas. 

Aunque no se almacenen en registro magnético también son úti- 
les, pues permiten eliminar el análisis de un problema que ya hemos 
resuelto otras veces con el consiguiente ahorro de tiempo y permiten 
un desarrollo más rápido de un programa. 

El requisito más importante que deben tener las bibliotecas de 
subrutinas es que cada una de ellas se pruebe exhaustivamente; es 
decir, que se pueda asegurar que están libres de error. 

En caso contrario, el supuesto ahorro de tiempo puede conver- 
tirse en un dispendio debido a que creemos que la subrutina es co- 
rrecta. 
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EJERCICIOS DE AUTOCOMPROBACION 


Complete las frases siguientes: 
1. SO MBNOQMINA cococcococccocociciccccicincnoo a un conjunto de instrucciones 


que pueden ejecutarse varias veces y se llaman desde diversos 
puntos del programa principal. 


2. Para poder realizar este mecanismo de ida y vuelta es necesario 
QUO SO atacando la instrucción que realiza la llamada. 


3. La instrucción GO SUB es semejante al GO TO excepto que la 


primera realiza la memorización de la .................................... que la 
ha llamado. 
4. La instrucción ..ooocccnionicnonioiicicccons es la indicación de que la su- 


brutina ha finalizado y debe transferir el control a la instrucción 
que ha llamado a la subrutina. 


5. La utilización de la instrucción RETURN en un programa principal 
UN a ya que no existe instrucción memori- 
zada para realizar el retorno. 


6. El mecanismo de memorización de la instrucción de llamada es 
E al programador y lo realiza el lenguaje BA- 
SIC de manera automática. 


7. Dentro de una subrutina pueden existir .................................... de 
una instrucción RETURN. 


8. La subrutina es el método básico de .................................... un pro- 
grama en procesos distintos. 


LOS oi de una subrutina son las mismas varia- 
bles del BASIC. 
10. Las subrutinas CUMPIBN ooo... completas y desde 


el programa principal se tratan como cajas negras. 
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De las afirmaciones siguientes rodee con un círculo la S si es 
aplicable a la instrucción GO SUB y con una T si es aplicable a la 
instrucción GO TO. 

Tenga en cuenta que hay afirmaciones aplicables a ambas, con 
lo que debe rodear con un círculo la S y la T y hay afirmaciones que 
no son aplicables a ninguna de las dos instrucciones con lo que no 
debe señalar nada. 


11. Transfiere el control a la instrucción señalada. 3 


12. Vuelve a la instrucción de llamada cuando encuentra una 
instrucción RETURN. Sr 


13. Sólo transfiere el control al inicio de una línea de pro- 
grama. ST 


14. El retorno se hace en una instrucción aunque esté en la 
mitad de una línea. S T 


15. Sólo se puede utilizar en el programa principal. ST 


Encierre con un círculo la letra que corresponda a la respuesta 
correcta. 


16. La comunicación de los datos entre el programa principal y las 
subrutinas se hace mediante: 
a) Las variables del programa. 
b) Argumentos como en las funciones. 
Cc) Mediante variables que empiecen por a. 


d) Mediante un número de instrucción. 


17. Para evitar errores es necesario separar el programa principal de 
las subrutinas mediante la instrucción. 
a) PRINT. 
b) NEW. 
c) END. 
d) LIST. 
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18. Para distinguir bien lo que son subrutinas de las instrucciones que 
componen el programa principal es conveniente iniciar las subru- 
tinas con la instrucción. 

a) STOP. 
b) DIM. 
c) CLS. 
d) REM. 


19. ¿Cuál de las llamadas siguientes a una subrutina es correcta? 


a) GO SUB 1000+23.5 

b) GO SUB 1000 : LET ¡ = 23.5 

c) LET ZETA = 100 : LET EQUIS = 900: GO SUB ZETA+EQUIS 
d) GO SUB MIL$ 


20. El requisito más importante de una biblioteca de subrutinas es 
que: 
a) Tenga muchas. 
b) Sean cortas. 
c) Tengan muchos comentarios. 


d) Estén libres de error. 


12.2 APLICACIONES 


Veremos a continuación una serie de programas que utilizan subru- 
tinas. 


12.2.1 Diagrama de barras 


Frecuentemente nos gustaría presentar los resultados obtenidos por un 
programa en forma gráfica, en lugar de utilizar la consabida tabla de nú- 
meros. Aunque la mayoría de ordenadores incorporan algún sistema de grá- 
ficos de alta resolución, éstos no son necesarios para construir dibujos de 
tipo sencillo. 

El programa construirá una barra formada por asteriscos (+) cuya lon- 
gitud será proporcional al valor del dato. Por tanto, la primera tarea a rea- 
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lizar será la elaboración de una subrutina para construir la barra. El listado 
de esta subrutina es el siguiente: 


500 REA Construccion barra 
510 LEI BS95="" 

520 FOR E=1 TO L 

530. LET RS=k$+"+*e" 

540 NEXT E 

550 RETURN 


Como de costumbre, en la primera línea colocamos un comentario in- 
formativo. La variable B$ será la que contendrá la barra. Por consiguiente, 
la primera operación consistirá en asegurar que está vacía. A continuación 
se empieza un bucle de 1 a L, en donde L contiene el valor de la longitud 
de la barra. En la línea 530 se va concatenando un asterisco (*) a B$. La 
línea 540 es la que cierra el bucle y seguidamente viene la instrucción RE- 
TURN. 

Pruebas de subrutinas Antes de seguir, hemos de asegurar que la subrutina funciona perfec- 
tamente. Como siempre, para verificarla efectuaremos pruebas en modo 
inmediato. Las variables de comunicación son dos. Desde el programa prin- 
cipal se le pasa el valor de L, es decir, la longitud de la barra. A su vez, 
la subrutina devuelve la variable B$ que contiene precisamente L asteris- 
cos (*). Escribamos 


LET Lrios GOSUE 300: ERINT ES 


En pantalla debe aparecer una línea formada por diez asteriscos. Es 
conveniente efectuar varias pruebas para distintos valores de L. Una vez 
verificada la subrutina pasaremos a construir el programa principal. Este 
programa tendrá dos partes. En la primera de ellas se realizará la lectura 
de los datos. En la segunda, se dibujarán las barras. El listado, que se 
añadirá a la subrutina, es el siguiente: 


10 REM Graficos barras 
20 LET o MN=31 DIM AN) 
350 FOR l=1 TO N 
40 INFEUT A(1) 
50 NEXT 1 
50 INPUT "maxImGO:",m 
TO FOR 1=1 TON 
ao LET Le ACIIAZO/M 
50 SOSUBA 300 
1060 GORINT I:TAB(S)3ES$ 
210 NEXT I 
120 END 
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En la línea 20 se define un conjunto dimensionado A de 3 elementos. 
Las líneas 30, 40 y 50 constituyen el conocido lazo para llenar el conjunto. 
En la línea 60, el programa nos pide el valor máximo para el que se cons- 
truirá el gráfico. Este valor se almacena en la variable M. A continuación 
viene el bucle para dibujar las barras. En la línea 80 se efectúa una con- 
versión de escala a fin de adaptar los valores al tamaño de la pantalla. La 
longitud de la barra variará de cero a 20 asteriscos (*). Por el contrario, los 
números almacenados A pueden ser cualesquiera, por ejemplo 1000, 1500 
y 1200. Es obvio que necesitamos transformar estos números a la escala 
de 1 a 20. Para esto sirve la variable M. Si para aquellos valores de A 
hubiésemos entrado M=2000, entonces los correspondientes valores de L 
serían 10, 15 y 12. A continuación pasamos control a la subrutina 500 donde 
se construye la barra. El retorno se produce en la línea 100 donde se im- 
prime el valor de / (número de orden) y la variable B$ que contiene la línea 
de asteriscos (*). Finalmente la línea 110 cierra el lazo. 

Si al ejecutar el programa entramos los valores comentados anterior- 
mente, se imprimirán en pantalla tres barras de longitudes de 10, 15 y 12. 
Si repetimos el proceso empleando un valor de M mayor (por ejemplo 5000) 
entonces las barras serán de inferior longitud. 

Para representar simultáneamente en número mayor de datos, se cam- 
biará el valor de N de la línea 20. Este programa tiene el inconveniente de 
que debemos suministrarle nosotros el valor máximo de la escala. En el 
capítulo dedicado a conjuntos dimensionados estudiamos el procedimiento 
para que el propio programa averigue el máximo de una lista. Después de 
introducir esta variante, el nuevo listado será el siguiente: 


10 REM Grafico barras 

ZO LET ON=31 DIM A(N) 

30 FIR Z=1 TON 

40 ¿INFUT ACI) 

0 NEXT 1 

SS LET M=A(1) 

20 “II 1=2 TO ON 

7O FE AIM THEN LEY M=A(1) 
30 NEXT... 1 

30 FOR ¡i=1 TON 


2D ET L=ACI)AZO/M 
210 GOSUR 500 

120 ERINT I;TARB(S):E%$ 
200 NEXT 1 

140 END 


Las líneas añadidas o modificadas son las que están comprendidas 
entre la línea 50 y la 70. El resto del programa no sufre variación. Estas 
líneas son las que sustituyen la entrada manual de la variable M por el 
cálculo automático. Cuando el programa llegue a la línea 70, en M habrá 
el valor máximo del conjunto A. A causa de este sistema de calcular M, la 
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barra que corresponda al elemento máximo de A será de longitud 20. En 
el caso anterior, la longitud dependía del valor de M. Gracias a este sistema 
de cálculo podemos introducir cualquier conjunto de datos puesto que el 
programa realizará el escalado de forma automática. 


12.2.2 Máximo común divisor 


Este programa es de tipo matemático. Se trata de hallar el máximo 
común divisor de dos números. Ya sabe que el máximo común divisor de 
dos números es el mayor número que es capaz de dividir los números ini- 
ciales exactamente. Siempre es posible encontrar este número ya que por 
lo menos el 1 divide a cualquiera de los dos números iniciales. 

Para ello emplearemos el conocido algoritmo de Euclides desarrollado 
en el siglo Ill a.C. Este método se basa en realizar sucesivas divisiones 
enteras de los dos números. 

En primer lugar construiremos una subrutina que calcule el máximo 
común divisor de X e Y. El listado es el siguiente: 


300 REM Algoritmo de Euclides 
310 LET O=INT(X/Y) 

320 LET R=X-—EHY 

330 IF R=0 THEN RETURN 

340 LET X=Y+ LET Y=R 

350 GOTO 310 


En la primera línea de la subrutina, en este caso la 300, se coloca el 
título de la misma. A continuación, efectuamos la división entera de X por 
Y. Para ello empleamos la función INT que nos suprime los decimales. El 
resultado es el cociente de la división y se almacena en Q. A continuación, 
calculamos el resto R de la división. Si este resto es cero, el proceso ha 
terminado, puesto que implica que la división ha sido exacta y por tanto Y 
es un divisor de X. Si no es así, efectuamos entonces la operación clave 
del algoritmo: En X colocamos el valor de Y y, a la vez, en Y colocamos el 
valor del resto. Seguidamente pasamos control de nuevo a la línea donde 
se efectúa la división (310). Este proceso se repite tantas veces como sea 
necesario hasta que el resto R sea igual a cero. Observamos que este lazo 
siempre tiene salida ya que cuando Y valga 1, el resto será forzosamente 
cero. Cuando la subrutina finaliza, en Y se encuentra el máximo común 
divisor. 

Las variables de entrada son X e Y. Los valores originales de X e Y 
son destruidos durante la ejecución. Cuando se produce el retorno al pro- 
grama principal, la variable Y contiene el resultado y por tanto actúa de 
variable de salida. El listado del programa principal que se añadirá a la 
subrutina, es el siguiente: 


10 REM Maximo Comun Divisor 
ZO INPUT A 
30 INPUT E 
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4 LET X=A1 LET Y=B 

30 GOSUB 300 

60 FRINT “EL=M.C.D. DE ""35A2" Y "sE EScUv 
7O STOP 


En las líneas 20 y 30 se produce la entrada de datos. A continuación, 
en la línea 40 se traspasan los valores entrados a las variables X e Y que 
actúan de argumentos de entrada para la subrutina, a la cual accedemos 
mediante la línea 50. Cuando se produce el retorno escribimos el resultado 
contenido en Y. Finalmente en la línea 70 se detiene el proceso. 

Probablemente nos preguntamos por qué se leen las variables A y B 
y luego traspasamos sus valores a X e Y, en lugar de leer directamente 
estas dos últimas variables. La razón es simple. Recordemos que la su- 
brutina destruye los valores originales de los argumentos. Entonces en la 
línea 60 únicamente podríamos escribir el valor de Y pero no los datos de 
partida. Es por esta razón que mantenemos una copia de los datos origi- 
nales en A y B. 

Ejecutemos el programa y realicemos las siguientes pruebas: 


Para A=35 y B=290 en pantalla aparecerá 
El M.C.D. DE 35 Y 290 ES 5 
Para A=32 y B=384 el ordenador escribirá 
EL M.C.D. de 32 y 384 es 32 
Para A=19228 y B=32436 el mensaje en pantalla será 


EL M.C.D. DE 19228 Y 32436 ES 4 


Podríamos preguntarnos si en este caso no hubiera sido más práctico 
construir el programa de una sola pieza sin utilizar subrutinas. Ciertamente, 
si sólo hay que calcular el máximo común divisor de dos números, la utili- 
zación de la subrutina es innecesaria. Por el contrario, si queremos hallar 
el máximo común divisor de tres o más números, el disponer de un módulo 
que efectue el algoritmo de Euclides es muy útil. Veamos cuál es el listado 
del programa principal para calcular el máximo común divisor de tres nú- 
meros. 


10 - REM Maximo Comun Divisor 
ZO INELT A 

30 INPUT E 

40 INEUT € . 

50 LET X=0:2 LET Y=B 

0 GOSUB 300 : 

TO LET X=C 

30  SOSUE 300 
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Hay que evitar la 
descomposición 
modular excesiva 


30 ERINT A3TABC(1O):3B:TAR(20):0 
100 ERINT "M.C.D.=":Y 
110 STORS 


En este caso, la entrada de datos formada por las líneas 20, 30 y 40. 
Los tres datos de partida se almacenan en las variables A, B y C. En primer 
lugar hay que calcular el máximo común divisor de los dos primeros datos. 
Por tanto, traspasamos los valores de A y B a las variables X e Y respec- 
tivamente. A continuación pasamos control a la subrutina 300. Esta nos 
devuelve en Y el máximo común divisor de A y B. El resultado final será 
precisamente el máximo común divisor de Y y el tercer dato. Por tanto, en 
X colocamos el valor de C (línea 70) e invocamos de nuevo la subrutina 
300. De nuevo, ésta nos devuelve el resultado almacenado en Y. Segui- 
damente, se escriben los valores iniciales y el resultado mediante las líneas 
90 y 100. Finalmente, en la línea 100 se detiene el proceso. 

Efectuemos ahora algunas pruebas. Escribamos el comando RUN y 
entremos algunos valores de A, B y C. 


Para A=60, B=90 y C=120, en pantalla aparecerá 
MCD=30 
Para A=32, B=384 y C=72, el resultado que escribirá el programa es 


MCD=8 


Como hemos podido observar, el empleo de una subrutina nos ha per- 
mitido ampliar el programa escribiendo únicamente unas pocas instruc- 
ciones. 

Hasta ahora hemos visto las grandes ventajas que se derivan de la 
utilización de subrutina. Sin embargo, cuando se diseña un programa hay 
que tener la precaución de construir módulos que realicen operaciones úti- 
les. Hay que evitar caer en la tentación de efectuar una excesiva modula- 
rización del programa puesto que entonces disminuye la velocidad de eje- 
cución. No olvidemos que cada vez que se acude a una subrutina se efec- 
túan las siguientes operaciones: 


— Memorización de la dirección de retorno. 
— Salto a la primera línea de la subrutina. 
— Retorno al programa principal y 
— Borrado de la dirección memorizada. 

Si el programa está bien diseñado, este pequeño gasto extra de tiempo 
de ejecución queda sobradamente compensado por las ventajas que com- 
porta el empleo de subrutinas. Es difícil dar normas para construir módulos 


útiles, pues dependen de cada caso concreto. En todo caso será útil repasar 
las técnicas de diseño estudiadas en el capítulo 7. 
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Por otra parte, la experiencia que se va adquiriendo al realizar progra- 
mas será nuestra mejor aliada para diseñar correctamente los programas. 

A continuación veremos un pequeño programa que pone de manifiesto 
la pérdida de tiempo que se produce a causa de una excesiva modulari- 
zación. 


0 FOR I=1 TO 1000 
ZO LET A=3+4 

SOS NEXT 

á0 SRINT "FIN" 


En este programa se realiza un bucle en el que se repite 1000 veces 
la misma operación, que en este caso es una simple suma. Este programa 
sirve para evaluar la velocidad a la cual suma nuestro ordenador. Toma- 
remos un reloj o un cronómetro y mediremos el tiempo transcurrido desde 
la orden de RUN hasta que la palabra FIN aparece en pantalla. Según el 
modelo de ordenador, este proceso puede se muy rápido y entonces no 
mediríamos un tiempo significativo. En este caso cambiaremos el 1000 por 
un número mayor. Lo ideal sería que transcurrieran al menos 10 segundos. 
Es conveniente realizar varias ejecuciones y realizar la media de los tiem- 
pos tomados. A continuación construiremos el programa con una subrutina. 
El listado es el siguiente: 


10 “GR I=1 TO 1000 
ZO GOSdBR 100 

30 - NEXT.1 

40 ERINT "EIN" 

S0 STQÉ 

100 LET A=3G+4 

2310. RETURN 


Como vemos, el programa es el mismo. Unicamente ha cambiado el 
hecho de que la suma se realiza en un módulo aparte. Si ejecutamos este 
programa, obtendremos unos tiempos significativamente mayores que en 
el caso anterior. Este es un ejemplo claro de cómo una excesiva modula- 
rización ocasiona pérdidas de tiempo sin reportar a cambio beneficio al- 
guno. 


12.2.3 Listados 


La confección de listados, ya sea por pantalla o por impresora es una 
tarea de las más frecuentes en informática. Veremos a continuación, cuáles 
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Cabecera de subrutina 


Subrutina pie 


son las técnicas que deben seguirse para confeccionar listados con formato 
completo. En un listado se suelen distinguir tres partes: 


— La primera de ellas es la cabecera que identifica la naturaleza del lis- 
tado. 


— La segunda es el cuerpo del listado y 


— La tercera es el pie de página. 


Tanto la cabecera como el pie de página se imprimen una sola vez, 
mientras que el cuerpo del listado está formado por una repetición de líneas 
iguales o parecidas. 


Como ejemplo de listado en formato completo, construiremos una tabla 
de raíces cuadradas. La cabecera y el pie de página las construiremos con 
subrutinas separadas. Antes de construirlas debemos establecer tres va- 
riables importantes. La variable P contendrá el número de página que se 
está imprimiendo. La variable LM contiene el número máximo de líneas por 
página y la variable L almacena el número de línea actual dentro de la 
página. 

Según lo anterior, el listado de la subrutina que imprimirá la cabecera 
será el siguiente: 


300 REM Cabecera 

310 LET P=fH+iz COLS 

320 PRINT "TABLA RAICES FAGINA: "sE 
BEBO PRINTER " 
340 ERINT " NUMERO", "RAIZ" 

BO BARINT  —AA " 
360 LET L=4 

370 RETURN 


Aparte de las instrucciones PRINT que imprimen los textos fijos, exis- 
ten dos instrucciones importantes. La primera es la línea 310 en donde se 
incrementa el valor de P, es decir el número de página. Este valor se em- 
plea en la línea 320. Además, .en esta línea se borra pantalla. La otra ins- 
trucción importante se encuentra en la línea 360. En ella establecemos que 
la cabecera ya ha gastado cuatro líneas de la página. 

El listado de la subrutina que imprimirá el pie de página es el siguiente: 


400 REM Fie de pagina 

LO ARI A A A A A " 
420 LET AS=INKEYS 

430 IF INKEY$="" THEN GOTO 420 

440 RETURN 
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Esta subrutina tiene dos misiones. La primera de ellas es escribir una 
línea que cierre la página. La segunda es hacer que el ordenador se espere 
hasta que el operador haya tenido tiempo de leer la página y dé la orden 
de seguir. Esto se consigue mediante la función INKEY$, que bloquea la 
ejecución entre las líneas 430 y 440 hasta que el operador pulsa una tecla. 

El programa principal tiene el siguiente listado que añadiremos a las 
subrutinas anteriores: 


10 REM Listado 

ZO LET F=0:1 LET Lm=15 

30 GOSUB 300 

40 FOR l=1 TO 100 

50 FREINT 1, SGRCI) 

0 LET L=L+1 

70 TE L>)LM THEN GOSUB 400: GOSUBR 300 
BO NEXT 1 

30 GOSUB 400 

100 STOFR 


En la línea 20 establecemos los datos iniciales. El número de página 
vale cero y el número de líneas por página lo hacemos igual a 15. La si- 
guiente operación es imprimir la cabecera y por tanto pasamos control a la 
subrutina 300. A continuación viene el cuerpo del listado que se construye 
con un bucle FOR/NEXT formado por las líneas 40 y 80. En el interior del 
lazo, además de la impresión de las raíces (línea 50), realizamos otra ope- 
ración consistente en el control del número de líneas escritas. A tal fin, in- 
crementamos el valor de L cada vez que se imprime una línea. A la vez, 
preguntamos si este número de línea supera el máximo admitido por pá- 
gina. Si es así, pasamos control a la subrutina del pie de página, la cual 
escribirá una línea de cierre y se esperará a que pulsemos una tecla para 
seguir. A continuación se pasa control a la subrutina que borra la pantalla 
e imprime una nueva cabecera. Además incrementa el número de página 
P y coloca un 4 en la variable L. Este proceso se va repitiendo hasta que 
finaliza el listado. En ese momento pasamos control por última vez a la 
subrutina 400 que escribe el pie de página. 

Si queremos utilizar este programa para que el listado salga por im- 
presora, hay que introducir algunas modificaciones. El primer paso es cam- 
biar todas las instrucciones PRINT por LPRINT. Además, suprimiremos las 
instrucciones 420 y 430 ya que ahora carecen de sentido. Puesto que el 
listado aparece impreso en papel, no tiene objeto esperar a que el operador 
haya leído una página para imprimir la siguiente. Un último punto a consi- 
derar es la instrucción CLS de la línea 310. Esta instrucción la utilizamos 
para empezar página nueva. En la impresora esto significa que debe pro- 
ducirse un salto de página. Podemos encontrarnos con dos situaciones se- 
gún el modelo de impresora. Hay algunas que realizan salto de página y 
otras que sólo admiten la impresión continua. En el primer caso, cambia- 
remos la instrucción CLS por 
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Salto de página en las 
impresoras 


LERINT CHAS (12) 


ya que el 12 es el código ASCII que produce el salto de página. 

Si sólo admite la impresión continua, entonces en la subrutina 400 co- 
locaremos una serie de instrucciones LPRINT vacías para producir unos 
cuantos saltos de línea de modo que quede una separación suficiente entre 
el pie de una página y la cabecera de la siguiente. Frecuentemente, en los 
listados se suele llevar un total acumulado de alguna columna. Este total 
se imprime al final del listado. En este caso hay que construir dos subrutinas 
de pie de página distintas. Una de ellas servirá para los saltos de página 
durante el listado y la otra servirá para el último pie de página. El listado 
del programa principal será el siguiente: 


10 REM Listado 
ZO LET PF=03 LET LM=15 
30 1237 T=0Q 

40 GOSUB 3500 

0 FOR 1l=1 TO 100 

60 ERINT 1, SAR CI) 

7 LET T=T+SQUR11) 

Bo LET Lel+i 

30 IF L>LM THEN GOSUE 400: GOSUB 300 
100 NEXT 1 

110 GOSUR 500 


120 STOF 


Definimos la variable T que servirá para llevar el total acumulado de la 
columna de raíces. Antes de empezar el listado, se inicializa con el valor 
cero. Por cada linea que escribe, se acumula el valor de la raíz en 7, tal 
como se observa en la línea 70. Cuando finaliza el listado, pasamos control 
a la subrutina 500 (línea 110) en lugar de a la 400. El resto del listado es 
idéntico al programa anterior, así como las dos subrutinas 300 y 400. En 
cuanto a la nueva subrutina 500, el listado es: 


500 REM Total 

SLO MRINT Moo " 
520 PRINT O" TOTAL..."3T 

530 RETURN 


Al ejecutar este programa, en la última página se escribirá el total de 
la segunda columna. 


12.3 NUMEROS ALEATORIOS 


Un uso importante de los ordenadores es la imitación de un proceso 
de la vida real. Esto se conoce como simulación. Puesto que tales procesos 


Modo básico de cálculo 


Función RND 
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dependen casi siempre del resultado de sucesos aleatorios, necesitamos 
algún procedimiento para obtener números al azar. En realidad, la obten- 
ción de números aleatorios es algo que va en contra de la propia naturaleza 
de los ordenadores. Para que se dé la existencia del azar, es necesario que 
haya algunas variables del proceso que escapen a nuestro control. Un or- 
denador es una máquina totalmente determinista, es decir, que a igualdad 
de causas produce iguales efectos y, por tanto, no puede existir ninguna 
variable que no se pueda controlar. Como conclusión, no se puede obtener 
un azar auténtico usando un ordenador. No obstante, esto no significa que 
debamos renunciar a obtener números con un azar más o menos imper- 
fecto. Para ello se usa un procedimiento muy ingenioso que describiremos 
a continuación. 

En primer lugar hay que advertir que la obtención de números alea- 
torios es un proceso interno del ordenador y la explicación que daremos 
seguidamente sólo pretende dar el fundamento en el que se basa este cál- 
culo. El mecanismo típico consiste en hallar restos de divisiones. Para que 
los valores de estos restos sean adecuados hay que escoger cuidadosa- 
mente los valores del dividendo y del divisor. Una fórmula muy corriente es 
evaluar el resto de la siguiente división: 


A + 899 
32767 


En A se coloca un número cualquiera. El resultado es un número com- 
prendido entre 1 y 32765. Para calcular el siguiente número aleatorio se 
toma el anterior como nuevo valor de A. Este proceso se puede repetir 
tantas veces y se van obteniendo números al azar. No vamos a entrar ahora 
en detalles matemáticos, pero se obtienen un total de 16384 números dis- 
tintos, pasados los cuales se empieza por el primero otra vez. Por tanto se 
trata de una serie de números. Es por esta razón que estos números re- 
ciben el nombre de pseudo-aleatorios ya que en realidad no se obtienen 
totalmente al azar. 

Normalmente, los números entre 1 y 32765 se convierten en valores 
comprendidos entre O y 1 a base de dividirlos por 32767. Por otra parte, 
muchos ordenadores utilizan otros números distintos de 899 y 32767 a fin 
de que la secuencia de números aleatorios sea más larga y no se produz- 
can repeticiones hasta que no se hayan generado cientos de miles o incluso 
millones de números. 

Además de usarse en la simulación, los números aleatorios se usan 
para los programas de juegos en los que conviene dotar a la máquina de 
un comportamiento imprevisible, de modo que el contrincante no pueda adi- 
vinar la estrategia que sigue el ordenador. La estadística es otro campo 
donde los números aleatorios tienen gran aplicación. 


12.3.1 Generación números aleatorios 


Para generar números aleatorios, el BASIC dispone de una función 
especial. El nombre de esta función es: RND 
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azar en un intervalo 


Este nombre proviene de la abreviatura de la palabra inglesa «random» 
que significa «azar». No la incluimos en su momento en el catálogo de fun- 
ciones puesto que ahora le reservamos varios apartados para explicar su 
funcionamiento. 

Tal como indica su nombre, el resultado de esta función es numérico. 
Además es una función que carece de argumentos (este punto puede variar 
en algunas versiones del BASIC). El resultado es un número fraccionario 
comprendido entre O y 1, ambos exclusive, esto es, sin incluir nunca el O 
ni el 1, pero comprendidos entre ellos. Por la propia naturaleza de la fun- 
ción, el resultado es imprevisible. Escribamos 


“RINT RND 


En pantalla aparece un número. Si repetimos inmediatamente la misma 
instrucción anterior, el resultado será totalmente distinto. Una demostración 
más palpable de este hecho nos la proporciona el siguiente programa: 


10 FOR lI=1 TO 10 
ZO FRINT RND 
30 NEXT 1 


Al efectuar un RUN, en pantalla aparecerá una lista de 10 números 
cuyos valores son imprevisibles, aunque todos ellos cumplen la norma de 
estar comprendidos entre O y 1. Por el momento ya sabemos obtener nú- 
meros al azar. 

Observe que si ahora hace un NEW y vuelve a teclear el programa, 
los números obtenidos son los mismos que antes. 

Por eso se denominan números pseudo-aleatorios porque aunque la 
serie es imprevista, si empezamos de nuevo se obtienen exactamente los 
mismos números. 

Esta particularidad es importante para probar los programas pues nos 
permite obtener condiciones repetibles. 

Para obtener una serie verdadera de números aleatorios existe una 
instrucción especial que estudiaremos en el párrafo siguiente. 

Sin embargo, para la mayoría de aplicaciones, estos números fraccio- 
narios son poco útiles. En su lugar, nos interesaría mucho más disponer de 
números enteros comprendidos entre dos límites cualesquiera. No hay di- 
ficultad alguna para realizar esta conversión. Para ello emplearemos la fun- 
ción INT. Por ejemplo, si queremos obtener números enteros entre 1 y 100, 
escribiremos 


PRINT INT (RND*100+1) 


Al multiplicar la función por 100, obtendremos un número comprendido 
entre O y 100 ambos exclusive. Cuando le sumemos una unidad, el número 
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Función de la instrucción 
RANDOMIZE 


estará entre 1 y 101, pero todavía es un número fraccionario. Al aplicar la 
función INT, se suprimen los decimales, con lo que obtenemos valores en- 
teros entre 1 y 100, incluyendo a ambos. 


12.3.2 Cebado inicial 


Como ya hemos mencionado, los números pseudo-aleatorios gene- 
rados forman una serie. Ocurre que, en la mayoría de ordenadores, cuando 
se ejecuta el programa, la función RND empieza siempre desde la posición 
inicial de la serie, dando lugar a la misma secuencia de números. Por tanto, 
estos números dejarían de ser aleatorios ya que, cada vez que se ejecute 
el programa, obtendremos los mismos resultados. 

Para evitar este problema, existe en BASIC una instrucción que sirve 
para escoger al azar la posición inicial de la serie. Esta instrucción es: 


RANDOMIZE 


La palabra RANDOMIZE en castellano significa «convierte en aleato- 
rio». Se coloca siempre antes de emplear la función RND. 

Al ejecutarse esta instrucción se produce un cebado inicial de la se- 
cuencia aleatoria. 

En algunas versiones del BASIC, no existe esta instrucción. En este 
caso, el ordenador realiza automáticamente el cebado inicial, es decir, efec- 
túa un RANDOMIZE interno y por tanto no hace falta que el operador la 
utilice. 


12.3.3 Aplicaciones 
12.3.3.1 Tirada de un dado 


El programa que veremos a continuación simula la tirada de un dado. 
Al tirar un dado, se puede obtener un resultado comprendido entre 1 y 6. 
Este programa imprimirá en pantalla una serie de números entre 1 y 6 dis- 
tribuidos al azar, como si en realidad hubieran sido obtenidos por un dado. 
El listado es el siguiente: 


10 REM Tirada dado 

ZO RANDOMIZE 

o FOR 1l:==1 TO 10 

4 LET A=INT(RND*6+1) 
30 FRINT A 

60 NEXT 1 4 


Observemos que la primera instrucción (dejando a parte el REM inicial) 
es RANDOMIZE. A continuación, se establece un bucle para que se ge- 
neren diez números. La línea 40 es la clave del programa. Siguiendo el 
procedimiento explicado anteriormente para transformar los números frac- 
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cionarios generados por RND en números enteros, multiplicamos por 6 y 
le sumamos 1. Seguidamente se aplica la función INT y el resultado se 
almacena en A. Con este procedimiento aseguramos que A contiene un 
número entero comprendido entre 1 y 6. La siguiente instrucción imprime 
el valor de A. Finalmente la línea 60 cierra el lazo. 

Ejecutando varias veces el programa veremos que cada vez se genera 
una serie de números al azar. Además, cada serie es distinta de las demás. 


12.3.3.2 Distribución estadística 


Anteriormente hemos afirmado que los números aleatorios obtenidos 
mediante RND tienen todos la misma probabilidad de aparecer. En el pro- 
grama anterior, todos los números comprendidos entre 1 y 6 tienen la 
misma probabilidad de ser generados. Si en lugar de 10 números, gene- 
ramos muchos más y los contamos, veremos que aproximadamente habrá 
la misma cantidad de cada uno de ellos. Precisamente, el siguiente pro- 
grama trata de este tema. 

Si sumamos el valor de la tirada de dos dados simultáneamente, los 
resultados estarán comprendidos entre 2 y 12. Pero ahora la probabilidad 
no está igualmente repartida. Para que el resultado sea 2 sólo hay una 
posibilidad: que en ambos dados aparezca un 1. En cambio para que apa- 
rezca un 7 existen varias posibilidades: 4+3, 5+2, etc. 

El programa simulará tiradas de una pareja de dados y las irá clasifi- 
cando según el resultado. Al final, escribirá el resumen de tiradas donde se 
reflejará las diferencias de probabilidad. 

El listado es el siguiente: 


10 REM Tiradas dos dados 
20. DEV. 14) 

30 FOR l=1 TO 50 

40 LET A=INT(RNDx*6G+1) 
50 CET B=INT (RND*E6 +1) 
0 CET C=A+E 

TO at. T(C-1)=T1(C0-14)+1 
do NEXT 1 

390 FOR i=i. TO. 11 
100 ERINT I+1:TAB(5):T(1) 
10 NEXT 1 


Utilizamos el conjunto T para llevar el recuento de cada uno de los 11 
resultados posibles (de 2 a 12). El bucle formado por las líneas 30 y 80 
genera 50 tiradas. En las líneas 40 y 50 se genera el resultado de cada 
dado. La variable C contiene el resultado, que estará comprendido entre 2 
y 12. Entonces, para incrementar el contador correspondiente se utiliza la 
línea 70, en la que se calcula el elemento de T a base de restar 1 a C. 

Cuando finaliza el bucle, en T están almacenados los recuentos de 
cada uno de los 11 resultados posibles. 
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A continuación se construye un lazo para escribir los resultados. Se 
imprimen dos columnas, una que indica la suma de los dos dados y la otra 
que refleja las veces que ha salido esa suma. Observaremos que son más 
frecuentes los resultados centrales (el 6, el 7 y el 8) que los extremos. Si 
en la línea 30, aumentamos el valor del bucle a 200, entonces la distribución 
es más cercana a la probabilidad real de que aparezca cada resultado con- 
creto. 

Como que este programa imprime un resultado en forma de tabla, po- 
demos aprovechar la subrutina utilizada para dibujar barras. De este modo, 
tendremos una visión gráfica de los resultados. 

Para ello cambiaremos el listado a partir de la línea 90, quedando 


390 LET M=T(1) 
100 SOR I=2 TO 11 
110 IF T(1)3M THEN LET M=T (1) 
12O MEXT 1 
130 FOR 1=1 TO 11 
140 LET L=20*T (1) /M 
150 GOSUE 500 
160 ERINT I+13TAOB(5)3ES 
170 NEXT 1 
140 END 
500 REM Dibugzo Barras 
310 LET Bg="" 
22 FOR E=1 TO L 
330 LET Bé=AH+"" 
340 NEXT E 
O RETURN 


En las líneas que van de la 90 a la 120 se determina cuál es el elemento 
máximo de 7. A continuación viene el bucle de escritura. Dentro de él, se 
pasa control a la subrutina 500 que construye la barra. Este segmento del 
programa es idéntico al ejemplo citado. 

Al ejecutar este programa se imprimirán 11 barras de asteriscos (+) 
cuya longitud será proporcional al número de veces que ha salido cada 
resultado. 


RESUMEN 


Las pruebas de las subrutinas se pueden hacer en modo inme- 
diato y es recomendable probar las subrutinas separadamente. 

Es necesario tener muy presente cuándo los argumentos que se 
pasan a una subrutina son destruidos por el cálculo. En general, es 
recomendable utilizar algunas variables en las comunicaciones que 
no utilicemos nada más. 
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Cuando se quiere acceder a una subrutina se utiliza la instrucción 
LET para asignar los valores de los datos a las variables que sirven 
de argumento. 

Un programa funciona tanto más rápido cuanto menos subrutinas 
tenga, pero esta ventaja se puede despreciar cuando el problema a 
resolver es suficientemente complejo. 

Debe evitar la partición del programa en un excesivo número de 
módulos. No hay que caer en el extremo opuesto. 

El equilibrio justo sólo se obtiene con experiencia, que debe 
adquirir realizando programas y leyendo programas que otros han rea- 
lizado. 

La realización de listados en un programa es una necesidad muy 
frecuente. 

Un listado se divide en tres partes: 


— Cabecera. 
— Cuerpo. 


— Pie. 


Es adecuado programar cada una de estas partes como subru- 
tinas en nuestro programa. 

La manipulación de impresoras requiere enviar a veces caracte- 
res de control, por ejemplo, para saltar página. Esto se realiza con la 
instrucción LPRINT CHR$ (<Carácter de control>). Los caracteres de 
control a enviar dependen de la impresora que se utilice. 

Los números aleatorios son interesantes para hacer simulaciones 
de sucesos reales en los que interviene lo que vulgarmente llamamos 
suerte. 

En primer lugar, los números aleatorios son contrarios a la na- 
turaleza del ordenador. 

El ordenador realiza siempre las mismas operaciones con una 
precisión rigurosa y de la misma manera. 

Se han diseñado procedimientos que sirven para obtener series 
de números que cumplen bastante con las leyes del azar. Se trata de 
los números pseudo-aleatorios. 

El mecanismo de sacar el resto y encadenar al siguiente es el 
más utilizado. Los números que se obtienen no verifican ninguna ley 
de orden que por esta razón se usan como aleatorios. 

De hecho se trata de una secuencia que si se empieza con el 
mismo número se obtienen los mismos resultados. Aparece otra vez 
la precisión rigurosa del ordenador. 

El BASIC utiliza la función RND para obtener un número com- 
prendido entre O y 1 (sin incluir a ninguno de ellos). 

El número obtenido es fraccionario, si se desea entero dentro de 
unos márgenes se utiliza el mecanismo siguiente: 


INT (RND + N + 1), 


en donde, N representa el número mayor que deseamos obtener. 
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La instrucción RANDOMIZE evita que cada vez que ejecutemos 
un programa realice la misma secuencia de números aleatorios. 

Esta operación se denomina cebado inicial. 

Cuando se prueba un programa es mejor no utilizar la instrucción 
RANDOMIZE pues si hay problemas sabemos exactamente que la 
situación inicial es la misma para cada prueba. 


EJERCICIOS DE AUTOCOMPROBACION 
Complete las frases siguientes: 
. Es necesario probar las subrutinas. Esto se puede hacer con la 


ejecución en modo 


. El paso de argumentos se hace con variables destinadas al 
efecto, que se inicializan antes de entrar en la subrutina mediante 
una instrucción de 


. La función intrínseca es la que tiene el BA- 
SIC para obtener números aleatorios. 


. Si iniciamos un programa siempre obtendremos la 
secuencia de números aleatorios. Esto es interesante para 
probar el programa. 


. La instrucción sirve para evitar que siempre 
se genere la misma secuencia de números aleatorios al iniciar un 
mismo programa. 


29. La instrucción RND siempre nos devuelve un número compren- 
dido en el intervalo O y 1 AMDOS ...ooocoiicicicicococicocoo..... 
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30. Para obtener un número aleatorio dentro de un margen determi- 
nado entero, se utiliza la función INT después de multiplicar el 
número aleatorio por 8l coccion. que queremos ob- 
tener y sumarle uno para evitar el cero. 


Encierre en un círculo la letra que corresponda a la respuesta 
correcta. 


31. Para obtener un número aleatorio entero comprendido entre 1 y 
8, qué instrucción se debe utilizar: 
a) LET A = INT (RND + 8) 
b) LETA = RAND + 8 + 1 
Cc) LET A = INT (RAND + 8 + 1) 
d) LET A = INT (AND) + 8 + 1 


32. Para obtener un número aleatorio fraccionario entre 1 y 9, ambos 
exclusive, qué instrucción se debe utilizar: 
a) LET A = INT (RAND + 8) 
b) LETA = RAND + 8 + 1 
Cc) LET A = INT (RAND + 8 + 1) 
ad) LET A = INT (RND) + 8 + 1 


33. Para obtener un número aleatorio entero comprendido entre 10 y 
20, ambos exclusive, qué instrucción debemos colocar: 
a) LET A = INT (RAND + 9 + 11) 
b) LET A = INT (AND + 10 + 11) 
Cc) LET A = INT (RAND + 9 + 10) 
d) LET A = INT (RAND + 10 + 10) 


34. Utilice la subrutina del algoritmo de Euclides para calcular el 
máximo común divisor de los números 18456 y 65536. El resul- 
tado es: 

a) 3 
b)5 
c) 8 
d) 128 


35. 


36. 


37. 


38. 


a 


b) 
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Utilice la subrutina del algoritmo de Euclides para calcular el má- 
ximo común divisor de los números 15625 y 4375. 

a) 5 

b) 13 

c) 125 

d) 625 


Utilice la subrutina del algoritmo de Euclides para calcular el má- 
ximo común divisor de los números 28561 y 16807. 

a) 1 

b) 5 

Cc) 7 

d) 9763 


Utilice la subrutina del algoritmo de Euclides para calcular el má- 
ximo común divisor de los números 12345 y 6789. 


a) 1 
b) 3 
c) 12345 
d) 6789 


¿Cuál de las subrutinas siguientes cuenta los blancos que hay en 
una cadena de caracteres? 

Se utiliza la variable C para almacenar la cuenta y la variable A$ 
es la que contiene la cadena cuando se llama a la subrutina. 


1000 REM Contar blancos 

LET Lo = LENC As) 

FOR 1 = 1 TO L 

LOBO 1 MIDE (AB, 11 += " % THEN LET Cs(l 
1040 MEXT 1 

1050 RETURN 


1000 REM Contar blancos 

1010 LETCoz= O LETOLo= LENC Ad) 

1030 FOR 1 = 1 TO UL 

1030 1F MI0$(A%$,1,12 = " " THEN LET C=C+1 
1040 MEXT 1 

1050 RETUEN 
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c) 
1000 REM Contar blancos 
LOTO LETS E =:¿0 € LEDO 
1020 FOR 1 = 1 TO L 

2030 IF MID$(A$, 1,1) = " " THEN LET C= L-1 
1040 MEXT 1 
1050 RETUEN 


il 


LENC A) 


d) 

1000 REM Contar blancos 
L0LO LET E =.0 3 LES 
1020 FOR 1] = 1 TO L 

IDO 1 LEFTS (6%, 12 = " " THEN LET C=l(+d 
1040 MEXT 1 

1050 KETUEN 


= LENC A) 


39. ¿Cuál de las subrutinas siguientes cuenta el número de palabras 
que hay en una cadena de caracteres? 
Se entiende por palabras cualquier secuencia de caracteres se- 
parados por blancos. 
Por ejemplo, la cadena «LET A= 3*5 : REM Asignación» contiene 
las palabras: LET, A=, 3*5, :, REM y Asignación. Observe que es 
un concepto de palabra en un sentido muy amplio. 
Se utiliza la variable C para almacenar la cuenta y la variable A$ 
es la que contiene la cadena cuando se llama a la subrutina. 
La variable S se utiliza para saber si el carácter anterior ha sido 
distinto de blanco. Cuando vale O es que el carácter anterior ha 
sido distinto de blanco y cuando vale 1 es que ha sido blanco. 
Se empieza con Sigual a 1, pues hay que suponer que el carácter 
anterior al inicial ha sido blanco. 


a) 


1000 REM Contar palabras 

1010 LET (ou Os LETOLo= LENC Aé: LET Sl 
FOSO ROR 4. =- 1 TD 

1 5230 THEN 60 TO 1100 

LE MiDS (AB Li dd  OA  CTHEN 60 HO. 00 
El loe El os ol El == 

1060 60 TO 1200 

1100 1 MID$(AR, 1,41) = " " TREN 60 TO 1200 
LETS. .= 1 

NEXT 1 

FS = O THEN LET OC = C+l 
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b) 


1000 REM Contar palabras 

1010 LET C= 0 LETL=LENCAS$): LET S-=1 

1020 FOR 1 = 1 TO L 

1030 1 250 THEN 60 710, 1100 

1040 1F MID$(A$, 1,1) 23 " " THEN GO TO 1200 
10590 LET Lo Cr+lo2 LET S=1 

1060 60 TO 1200 

1100 1F MID$(A$, 1,1) = " " THEN 60 TO 1100 

1110 LETS =0 

1200 NEXT 1 

1210 1F 5 = O THEN LET C o= C+1 

SO RETURN 


REM Contar palabras 

LET Ls 00 LETOL=,LENC A. LEFT S=1 
7 Y AL 

0 THEN 60 10 1100 

BALI 1d 2 "o" THEN 60 TO 1200 


1 
LOLACKk 
1040 1 
OSO ED LD LA a LE Sd 

1060 60 TO 1200 

1100 IF MID$(A$, 1,12 = " " THEN GO TO 1200 


LET.5=./0 

NEXT 1 

1F S = O THEN LET € = C+i 
RE TUN 


ELA 


1000 REM Contar palabras 

TOTO LETOL == 07 LEO LENC ASIS ET Sl 
ZO FOR <= 1 TO L 

1030. LPS 0 TO 1100 

1F MID$(A$, 1,1) <> " " THEN 60 TO 1200 
LETAL ON LEN sl 

GU TO 


= " " THEN 60 TO 1200 


PECUAT 
FS = 0 THEN LET OC o= C0+1 
RETURN 
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SOLUCIONES DE LOS EJERCICIOS DE AUTOCOMPROBACION 


Capítulo 9 1. Bucle. 21. Cerrar. 

2. Variable de control. 22. Instrucciones. 
3. Instrucciones. 23. Esperar. 
4. FOR, NEXT. 24. GOTO. 

5. Inicio. 25. FOR. 

6. Final. 26. Variable de control. 
7. NEXT. 27. Expresiones. 
8. Expresión. 28. Entrar. 

9. Incrementar. 29. Cero. 

10. Decreciente. 30. Cerrar. 
11.b 31. a) 31.7 
1 EE 
13. a d) 31.6 
Men EE 
15. C 9) 31.5 
1. 1 
17.b 31.3 
18. c 

19. b 
20. c 

Capítulo 10 1. tipo 13. paréntesis 

2. conjunto 14. comas 

3. dato 15. subíndice 
4. una, vector 16. F 

5. dos, matriz 17. V 

6. dimensiones 18. F 

7. números 19. V 

8. restricción 20. F 

9. dólar 21.b 

10. antes 22. d 

11. inicio 23. Cc 

12. subíndice 24. d 
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Capítulo 11 


0OQNyNNSN nynyNy NN 
OOOO Jo sg 


OOAPRALNZ 


e 
. modificación 
. FOR/NEXT 
. control 

. dimensiones 


. nombre 


. Fijos 


DATA 


. Mezclarse 


Datos 


. Situación 


Orden 
READ 


. Comas 

. Leído 

. RESTORE 
al 


OCOQacaoao 


Cc 


. Final 

. Funciones 
. FN 

. Textual 

. DEF 

. Argumentos 
. Propias 

. Coincidir 

. Variables 

. Situación 
HC 

.b 

. d, no coincide el orden de los argumentos 


O0OOVOOCD 


31. 
32. 
33. 
34. 
35. 


. b (y escribe los números 5,4,3,2,1) 
. b (y escribe los números 5,4) 


. d, el argumento debe ser numérico 
. d, hay demasiados argumentos 


QA 0 E 
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Capítulo 12 


39. 


Cc 
b 
a 
C. 
cd 
a 
b 
b 


. subrutina. 
. memorice. 
. instrucción. 
. RETURN. 


error. 


. invisible. 


más. 


. descomponer. 
. argumentos. 
. funciones. 
Sy T. 


S 


. inmediato. 

. asignación. 

. lento. 

. pie. 

. aleatorios o seudo-aleatorios. 
. RND. 

. misma. 

. RANDOMIZE. 

. exclusive. 

. húmero O número máximo. 


(La alternativa a no pone a cero la variable C. La alternativa c hace 
un cálculo equivocado en la línea 1030, LET C = L—1. La alternativa 
d utiliza la función LEFT$ en lugar de la MID$.) 


c (La alternativa a no coloca a cero el valor de S cuando encuentra un 
carácter en blanco. (Línea 1110 LET S = 1.) La alternativa b, cuando 
se encuentra un carácter blanco se queda atrapada en la línea 1100 
pues se recicla sobre sí misma. La alternativa d es incorrecta porque 
tiene un PRINT | en lugar de un NEXT en la línea 1200.) 


Parte ll 
PRACTICAS 
CON EL ORDENADOR 


Capítulo 9 


ESQUEMA DE CONTENIDO 


Objetivos 

La estructura de repetición 
Instrucciones FOR y NEXT 

Bucle escalonado 

Bucles de espera 

Posibilidades de los bucles FOR/NEXT 


Escritura del problema de pantalla 


Variables 
Definición 


Líneas verticales 
del programa 


Práctica 1. El fondo cuadriculado 
La entrada de datos 
Pruebas 


Observaciones finales 


Definición del problema 
Práctica 2. Construcción de una tabla financiera y 
Escritura del programa 
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La decisión se toma al inicio 
del bucle en el ZX-Spectrum 


La variable de control sólo 
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debe tener una letra 


9.1 LA ESTRUCTURA DE REPETICION 


En el programa que se da a continuación se pretende escribir una tabla 
de raíces cuadrados desde el 1 al 10. 


10 LET vuelta = 1 
20 IF vuelta > 10 THEN GOTO 9999 


30 ERINT vuelta, SGR(vuelta) 
40 LET vuelta = vuelta +1 
50 GOTO 20 


Esta estructura de repetición es más adecuada para el ZX-SPECTRUM 
que la propuesta en el capítulo standar. 

Las diferencias están en que la primera instrucción de la repetición es 
la pregunta de si el valor de la variable de control supera o no el valor final. 

El cuerpo de la repetición acaba incrementando la variable de control 
y enviando el programa de nuevo a la pregunta que ha iniciado el bucle. 


9.2 Instrucciones FOR y NEXT 


La palabra FOR se encuentra sobre la tecla F. La palabra TO está 
escrita también sobre la tecla F. La instrucción NEXT se encuentra sobre 
la tecla N. 

Como sabemos de los primeros capítulos, en el ZX-SPECTRUM los 
nombres de las variables de tipo numérico pueden tener cualquier número 
de letras. Sin embargo si una variable se va a utilizar como variable de 
control de un bucle, entonces su nombre está restringido a una sola letra. 

En el programa del apartado anterior se ha empleado la variable 
VUELTA que nos sirve precisamente para contar el número de vueltas que 
da el programa. Si escribimos este mismo programa utilizando las instruc- 
ciones FOR/NEXT entonces no es posible usar la variable VUELTA puesto 
que tiene un nombre demasiado largo. En su lugar emplearemos,por ejem- 
plo, la variable V, quedando 


10 FOR V=i1 TO 10 
ZO FPRINT Y, SQOR (Y) 
30 NEXT Y 


Como se aprecia, las instrucciones FOR/NEXT nos permiten progra- 
mar con gran simplicidad un proceso repetitivo. Basta comparar la sencillez 
de este programa con el anterior. Recordemos también que en el ZX-SPEC- 
TRUM, la variable de control debe tener un nombre formado por una sola 
letra. Este hecho hay que tenerlo presente si se adapta un programa escrito 
en otro ordenador. 
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Como aprenderá en el capítulo standar, cuando el valor de finalización 
es más bajo que el valor inicial el comportamiento de las instrucciones FOR 
y NEXT depende del ordenador. En el caso del ZX-SPECTRUM, la pre- 
gunta se sitúa en la instrucción FOR, al inicio del bucle. Por lo tanto, el 
cuerpo del bucle no se ejecutará ninguna vez. 

Así, por ejemplo, 


no pasará ninguna vez por el cuerpo del bucle. 


a 


9.3 BUCLE ESCALONADO 


La palabra STEP se encuentra sobre la tecla D. A continuación de esta 
palabra se coloca una expresión numérica cuyo resultado puede ser posi- 
tivo (bucle creciente) o negativo (bucle decreciente) o incluso fraccionario. 

El siguiente programa es un ejemplo de bucle con incremento fraccio- 


nario. 
10 FOR V=1 TOD 3 STER 0.5 
ZO ERINT Y, SU (V) 
30 NEXT W 
Se permite que el paso sea El valor de V empezará en 1 y se incrementará en 0.5 a cada vuelta 
fraccionario dando 1.5, 2, 2.5 y 3. 
En el caso de los bucles decrecientes debe utilizarse el valor del paso 
igual a —1. 


Por ejemplo, el programa siguiente escribe en orden inverso los 10 
primeros números. 


10. FOR.T: 10:+7007. TEA] 
20 PRINT 1 
30 NEXT 1 


También en este caso, si el valor final es mayor que el inicial, el bucle 
no se ejecuta ninguna vez. 
Así, la instrucción 


FOR 11. 10,10 STEPR-1 


no permitirá alcanzar nunca el cuerpo del bucle. 
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9.4 BUCLES DE ESPERA 


En el ZX-SPECTRUM, para conseguir un tiempo de espera de apro- 
ximadamente 1 segundo hay que emplear el siguiente bucle: 


Ciertamente, como ya sabemos, este ordenador incorpora una instruc- 
ción especialmente dedicada a esta función: la instrucción PAUSE. 
Para esperar un segundo se utiliza la orden 


La instrucción PAUSE puede Esta instrucción es muy cómoda pero tiene el inconveniente de que no 
sustituir a los bucles de es compatible con muchas variantes del BASIC. Por el contrario, el bucle 
espera de espera funciona en todas las máquinas. 


Quizá se pregunte por qué se debe utilizar 50. Pues porque la instruc- 
ción PAUSE utiliza para su contaje la frecuencia de la red de alimentación 
del ordenador que es de 50 ciclos por segundo. 

Debe tener en cuenta que en varias partes del mundo se utilizan 60 
ciclos por segundo como frecuencia de la red eléctrica, en este caso la 
instrucción conveniente es 


A 


9.5 POSIBILIDADES DE LOS BUCLES FOR/NEXT 


El esquema general de las instrucciones FOR y NEXT en el ZX-SPEC- 
TRUM es: 


La variable de control es la í, y vi, vf y vp son abreviaturas para indicar 
las expresiones para calcular los valores inicial, final y el paso. : 

La figura 1 nos muestra el ordinograma de funcionamiento del bucle 
en el ZX-SPECTRUM. Vaya siguiéndolo. 

Las observaciones que hay que hacer son las siguientes: 
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Figura 1 Ordinograma de fun- 


cionamiento de las instrucciones EE 
FOR y NEXT. 


Cálculo vp 
SI << 


Cuerpo 
Bucle 
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El funcionamiento completo 
de un bucle FOR/NEXT es 
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complejo 
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1. Se calculan primero las expresiones inicial (cáleulo vi), final (cálculo 
ví) y paso (cálculo vp) y se almacenan como variables intermedias a las 
que el programador no tiene acceso. Este punto es importante para saber 
cómo funciona el ZX-SPECTRUM cuando en las expresiones de cálculo 
interviene la variable de control. 


2. Se asigna a continuación el valor inicial a la variable de control (i = 
vi). Tenga en cuenta, por tanto, que si la variable de control interviene en 
las expresiones de los valores inicial (vi), final (vf) y paso (vp), el valor que 
se utiliza es el que tiene antes de alcanzar la instrucción FOR. 


3. Se toma la decisión de continuar o no en el bucle (vp<0). Según 
que el paso sea positivo (salida hacia la derecha) o negativo (salida hacia 
la izquierda), la pregunta es distinta, como pone de manifiesto el ordino- 
grama. Si el paso es negativo, se pregunta si la variable de control es menor 
que el valor final (i<vf). Si el paso es positivo se pregunta si la variable de 
control es mayor que el valor final (i>vf). 


4. Se ejecuta el cuerpo del bucle. El número de instrucciones aquí es 
indeterminado y depende de las necesidades del programador. La variable 
de control puede ser alterada en este bloque pero como ya hemos indicado 
no es una práctica aconsejable. 


5. Se incrementa la variable de control en el valor del paso (i=i+vp). 
No hace falta considerar ahora si el paso es positivo o negativo, pues la 
aritmética con números negativos funciona correctamente en el ordenador. 


6. Se envía el control del programa a realizar de nuevo la pregunta, 
es decir el paso 3. 


Los pasos 1, 2 y 3 corresponden a la instrucción FOR. Los pasos 5 y 
6 son los correspondientes a la instrucción NEXT. La complejidad de este 
ordinograma demuestra la comodidad que supone la utilización de las ins- 
trucciones FOR y NEXT, en lugar de expresarlo en función de instrucciones 
elementales. 

Veamos un ejemplo para acabar de entender las propiedades y limi- 
taciones del FOR/NEXT en el ZX-SPECTRUM. 

Considere el programa siguiente: 


20 FOR ií = i+1 TO 2*i STER 1/2 
30 PRINT i 
40 NEXT i 


El programa sólo tiene la finalidad de mostrar el comportamiento de un 
FOR cuando la variable de control interviene en el cálculo de las expresio- 
nes del valor inicial, final y paso. 

El cuerpo del bucle es simplemente escribir la variable de control. 

Si se ejecuta el programa tal como está se obtiene el error de 


2 Variable not found, 20:1 
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es decir, que la variable no está definida. Esto ocurre porque primero se 
calculan las expresiones del valor inicial, final y paso. El valor de la i que 
se utiliza es justamente el que tiene la variable ¡ antes de entrar en el FOR. 
Como realmente no está definida, nos da el mensaje de error. 

Para hacer funcionar el programa se debe definir la variable ¡ antes; 
por eso añadimos la instrucción 


10 LET i=2 


Al ejecutar ahora el programa se obtienen uno detrás de otro el 3 y el 
4. La razón es que antes del bucle la ¡ vale 2, el valor inicial es i +1, por 
lo tanto, vale 3. El valor final es 2wi, por lo tanto vale 4. El paso es ¡/2, por lo 
tanto vale 1. El bucle es equivalente a 


FOR i=3 TO 4 STER 1, 


Cambie ahora el valor de la instrucción 10 a 


10 LET i= 6 


al ejecutar obtendremos 7 y 10. En efecto, ahora el inicio del bucle será el 
equivalente a: 


FOR i=7 TO 12 STER 3. 


Finalmente coloque el valor de ¡ a 5. Obtendrá los valores 6 y 8.5. La 
razón es que ha realizado un bucle con estos valores 


FOR i=6 TO 10 STEP 2.5 


Repetimos que aunque conozca bien el funcionamiento del bucle es 
desaconsejable utilizar este tipo de inicializaciones. Por una parte deberá 
recordar cada vez este funcionamiento y por otra puede ser que en otra 
máquina el comportamiento sea muy distinto. 
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Figura 2 Soporte de tablas de 
diversas formas. 
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9.6 PRÁCTICA 1. EL FONDO CUADRICULADO DE PANTALLA 


Cuando queremos realizar un estudio sobre cualquier tema utilizamos 
las tablas. 

Para realizar las tablas dibujamos unas líneas horizontales sobre el 
papel y unas líneas verticales. El resultado son varias casillas del tamaño 
necesario para la tabla que deseamos construir. 

La figura 2 nos muestra distintas formas de tablas. El proceso de cons- 
trucción es un proceso repetitivo típico, se tiran líneas paralelas en hori- 
zontal y luego líneas paralelas en vertical. Este trazado o dibujo se deno- 
mina soporte o fondo de la tabla. 

El objetivo de esta práctica consiste en trazar líneas sobre la pantalla 
para construir el soporte de una tabla tal como lo hacemos en el papel. 

Cuando decimos dibujar en el ordenador nos referimos a rellenar una 
línea de pantalla con algún carácter elegido previamente. 


a E 


9.6.1 Definición del problema 


Se trata de construir un programa para dibujar en la pantalla un soporte 
de tabla que tenga un número determinado de columnas, que abarque un 
número de caracteres fijado y que tenga un número determinado de filas 
cada una de las cuales abarque un número preestablecido de líneas de la 
pantalla. 

Para aclarar el enunciado general del problema, consideremos un 
ejemplo concretando los valores de las distintas variables. Si deseamos una 
tabla de dos columnas que cada una tenga diez caracteres de ancho y cinco 
filas de dos líneas cada una, en la figura 3, se muestra cómo es la tabla 
sobre una plantilla de cuadrícula equivalente a la de los caracteres en 
pantalla. 

Observe que sólo hemos utilizado asteriscos para delinear el soporte 
de la tabla. Podremos utilizar un símbolo distinto para los elementos verti- 
cales y horizontales tal como indica la figura 4. 
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Figura 3 Soporte de una tabla 
construida con el ordenador con 
un único símbolo. 


EN 


Figura 4 Soporte de tabla cons- 1234567 80941011 12 13 1415 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 
truida con ordenador con dos 
símbolos. 


Las figuras 3 y 4 nos permiten saber cuántos datos precisamos para 
construir las tablas: 


— Número de columnas que debe tener la tabla (en nuestro caso 2). 
— Número de caracteres por columna (en nuestro caso 10). 
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— Número de filas (5 en el ejemplo). 
— Número de líneas por fila (2 en el ejemplo). 


— Carácter que sirve para denotar en espacio vertical. En la figura se 
utiliza la barra vertical (|). 


— Carácter que sirve para denotar el carácter horizontal (en la figura 
se utiliza el guión (-). 


Si consideramos otra vez la figura 4, está claro que el carácter de la 
línea 1 y la columna 5 debe ser un espacio horizontal. Sin embargo, en 
la línea 1 y la columna 1 no queda claro si hay que utilizar un espacio vertical 
u horizontal. 

La decisión pertenece a cuestión de gusto y estética personal. 

En esta práctica eligiremos el criterio de utilizar el símbolo de espacio 
vertical como prioritario al horizontal. Es decir, en todas las intersecciones 
entre líneas horizontales y verticales se colocara el símbolo vertical. 

El problema y la decisión se pueden evitar si utilizamos el mismo sím- 
bolo para el espacio horizontal que vertical, como es el caso de la figura 3 
en la que se ha elegido el asterisco. 


9.6.2 Escritura del programa 


9.6.2.1 Variables 


A cada uno de los datos que hemos mencionado en el apartado an- 
terior le asignaremos una variable. Además para empezar el diseño de la 
parte de dibujo tomaremos los valores que aparecen junto a las variables 
en la tabla siguiente: 


Cc: (2) Número de columnas. 
nc: (10) Caracteres por columna. 

f: (5) Número de filas. 
nf: (2) Número de líneas por fila. 
v$: (|) Carácter de espacio vertical. 


h$: (-) Carácter de espacio horizontal. 


De momento dejaremos para más adelante el diseño de la entrada de 
datos y utilizaremos la asignación para obtener los valores de las variables 
del ejemplo que vamos a realizar. 

Las instrucciones son las siguientes: 
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10 LET v$="1" 3 LET hhe"-" 
ZO LET ao= 2 CALETA O 
SO LET-F- ACI LETRA 


Consideremos en primer lugar la escritura de las líneas horizontales. 

Debe haber un bucle que se repita f veces, es decir, el número de filas 
que debemos trazar. Cada una de estas repeticiones consiste en dibujar 
una línea (es equivalente a realizar un trazo en el papel con la regla) y 
saltarse a continuación tantas líneas como se requiera en forma de espa- 
cios en blanco (es equivalente a bajar la regla tantas líneas como quera- 
mos). Una vez finalizadas estas repeticiones se realiza una línea más. 
Tenga en cuenta que si la tabla tiene 5 filas debemos trazar 6 renglones 
sobre el papel, este renglón de más es el que trazamos después de fina- 
lizado el bucle. 

El esquema es, por tanto, 


FORi=1TOf 

Dibujar una línea horizontal 

Saltarse tantas líneas como indique nf 

NEXT ¡ 

Dibujar una línea horizontal 

Para probar el funcionamiento correcto de este mecanismo vamos a 
escribir únicamente un carácter horizontal en las líneas llenas y una línea 


en blanco para las líneas a saltarse. 
Tomemos como instrucciones provisionales las siguientes: 


1000 FOR i = 14 TO f 


1010 FRINT hs 

1020 FOR y = 1 TO mf 
1030 ERINT 

1040 NEXT 1 

1050 NEXT dá 


1060 PFRINT hs 


Como puede ver, hay dos bucles anidados, el primero empieza en la 
instrucción 1000 y acaba en la instrucción 1050. Este bucle responde al 
mecanismo de repetición básico, esbozado en el esquema, para las filas 
que deseamos en nuestro caso 5. 

El cuerpo del bucle consiste en: 


— La línea 1010 que consiste en el dibujo de un carácter horizontal 
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Figura 5 Construcción de una 
tabla. Disposición vertical. 
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que indica dónde debemos trazar una línea llena. En el papel un 
trazo con la regla, 
y 
— El bucle desde la instrucción 1020 hasta la 1040 que responde al 
mecanismo de bajar la regla en el papel y consiste en imprimir líneas 
en blanco tantas como indica el dato nf, que en este ejemplo en 
particular vale 2. 
Finalmente la instrucción 1060 escribe la línea adicional para cerrar la 
tabla por debajo. 
Ahora teclee el RUN y ejecute el programa, en la pantalla aparecen 
Unas rayas horizontales que indican dónde se deben dibujar las líneas ho- 
rizontales del soporte, tal como indica la figura 5. 


1234567 892141121 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 
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9.6.2.2 Líneas verticales 


Consideremos ahora la parte del problema asociada con el trazo de 
las líneas verticales. El mecanismo no es igual que el caso de las líneas 
horizontales ya que hay que trazar las líneas verticales a medida que tra- 
zamos las horizontales. Esta es una diferencia importante respecto al me- 
canismo de trazar tablas sobre un papel. Ciertamente si utilizamos la pan- 
talla puede utilizarse la función AT y colocarnos en cualquier punto de ella. 
En el caso de utilizar la impresora este mecanismo no sirve. 

En esta práctica consideraremos que la pantalla es equivalente a la 
impresora. 

Hagamos el experimento siguiente con el programa que tenemos en 
el ordenador. Modifiquemos las instrucciones siguientes: 
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1010 SRINT vé$zh$zn$; 08; 
1030 PRINT vB e mn 
1060 ZRINT vérhb; PAE 


En la modificación de la instrucción 1030 se utiliza el blanco (* ”) re- 
petido tres veces para que quede más clara la semejanza con las otras 
modificaciones; evidentemente se pueden escribir tres blancos encerrados 
en unas solas comillas. 

Ejecute el programa y observe que lo que aparece en pantalla debe 
ser como la figura 6. 


Figura 6 Pruebas de construc- 
ción de una tabla. Disposición 
horizontal. 


Esta figura sugiere que el mecanismo para construir la tabla consiste 
en preparar previamente una línea de caracteres horizontales y en las co- 
lumnas adecuadas los espacios verticales correspondientes. 

También las líneas en blanco contienen algunos espacios verticales en 
las columnas precisas, que hay que preparar previamente a la escritura. 

Llamemos a estas variables intermedias r$ (raya horizontal) y b$ 
(blanco). Para. ilustrar el procedimiento modifiquemos de nuevo el pro- 
grama, añadiendo las líneas 500 y 510 y modifiquemos las 1010, 1030 y 
1060 para que el programa quede de la forma siguiente: 
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S00 LET ré=vé+hé$+h$+h+v6 
S10 LET bé=y$*" "4" "+" "yg 
1000 FOR i = 1 TO f 


1010 PRINT r$ 

10:30 FOR y = 1 TO nf 
1030 PRINT b$ 
1040 NEXT 

1050 NEXT 1 


1060 PRINT rs 


Las instrucciones 500 y 510 utilizan la concatenación de cadenas de 
caracteres para construir las cadenas r$ y b$. 

Se ejecuta el programa y el resultado es el mismo que el obtenido en 
la figura 6, es decir, el programa es equivalente al anterior. 

La conclusión de este experimento es que el mecanismo de trazar ra- 
yas verticales consiste en preparar dos rayas horizontales, ambas con los 
caracteres verticales en el lugar oportuno, pero en una con caracteres ho- 
rizontales en blanco y otra con caracteres horizontales el h$. 

El mecanismo para preparar las rayas verticales es muy semejante al 
utilizado para trazar líneas en sentido horizontal. 

El esquema es el siguiente: 


texto a espacio vertical. 
FORi=1TOC 


Añadir tantos caracteres de relleno 
como indica nc. 


Añadir un espacio vertical. 
NEXT ¡ 


Es decir, se parte de la cadena con un carácter vertical, se le añaden 
tantos caracteres de relleno como debe tener la columna (de blancos para 
la línea en blanco y de horizontales para la raya). Se añade a continuación 
un carácter vertical y se vuelve a iniciar el proceso hasta conseguir la an- 
chura de los textos requerida. 

Observe que en este caso también se añade un carácter vertical más 
que el que indica c, precisamente el que inicia las cadenas antes de iniciar 
el bucle. 

La traducción de esta explicación al BASIC es la siguiente: (debe in- 
tentarla Ud. antes) 


500 LET ré=v$ 1 LET D$= v$ 
510 FOR i = 1 TO ce 

320 FOR 1= 1 TO nc 

330 LET ré=rs+h$ 

3540 LET bé=b$+" " 
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550 NEXT 3 
560 LET ré = ráérvs$ 
570 LET b$ = b$+v$ 


580 NEXT i 


Al ejecutar ahora el programa debe resultarle una tabla de 2 columnas 
con 10 caracteres en cada columna y de 5 filas con dos líneas cada fila. 
Concuerda con la figura 4. 


9.6.2.3 La entrada de datos 


La última parte que nos queda por resolver es la entrada de datos. De 
momento utilizábamos la asignación para tener los datos necesarios, en las 
líneas 10, 20 y 30. 

El primer impulso es colocar un INPUT para cada dato. Sin embargo 
hay que indicar una vez escogidos el carácter vertical y horizontal no de- 
searemos modificarlo más que raras veces. En esta situación es mejor tocar 
el programa cuando queramos variar de símbolos. 

Por lo tanto, sólo colocaremos los INPUT para los cuatro datos fun- 
damentales, el número de columnas (Cc), caracteres por columna (nc), nú- 
mero de filas (f) y líneas por fila (nf). 

También para que el programa se recicle añadiremos una instrucción 
al final para volver a pedir una entrada de datos. 

Para completar este reciclaje, es necesario introducir un CLS para de- 
jar la pantalla limpia entre tabla y tabla. 

Las modificaciones que debemos hacer son: 


20 INPUT "Columnas: "je 
30 INFUT "Caracteres por columna:”"zne 
40 INPUT "Filas:i";f 
50 INFUT "Lineas por fila:";m 
60 CELS 
2000 GOTO 20 


Las cinco primeras instrucciones corresponden a la entrada de datos 
y la última al GOTO corresponde para hacer el reciclaje. 
El programa completo es el siguiente: 


10 LET vé="|"iLET hs="-" 

ZÓ INPUT "Colummasiio 

30 INFUT "Caracteres por columna: "ino 
40 INFUT "Filas:i"5f 

50 INPUT "Lineas por fila:!":nf 

60 CLS 
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9.6.3 Pruebas 
Hagamos con el programa las pruebas siguientes: 
1. c=2, nc=10, f=5, nf=2 
Debe reproducirnos la tabla de la figura 4. 
2. c=10, nc=3, f=7, nf=3 


Debido a que el número total de caracteres sobrepasa la anchura de 
la pantalla la tabla queda mal colocada. i 

El número de caracteres se puede calcular del modo siguiente: en cada 
columna hay 3 caracteres en blanco y uno de espacio vertical, en total 4 
por columna, como hay diez columnas son 40. Además hay uno más, en 
total son 41. 

Este hecho nos sugiere que en la entrada de datos podríamos calcular 
si el número de caracteres es mayor que la anchura de la pantalla e impedir 
que se realicen tablas que no van a caber. 

Además como ahora escribimos muchas más líneas que las que caben 
en pantalla llegará un momento en que la máquina nos hará la pregunta 
scroll? 

Esto también sugiere que en la entrada de datos deberíamos controlar 
el número de líneas a escribir, como en el caso de las columnas. 

Observe que la anchura puede ser correcta y en cambio haber pedido 
un número de líneas excesivo. Por lo tanto, hay que calcular las dos po- 
sibilidades. 


3. C=0, nc=5, f=3, nf=2 
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El punto interesante de esta prueba es que solicitamos cero columnas. 
Como el ZX-SPECTRUM sólo entra en el bucle si el límite inferior es menor 
O igual al límite superior, el programa no realiza ninguna vez el paso por el 
bucle que se inicia en la línea 510 y acaba en la línea 580. La raya y el 
blanco constan únicamente de un especio vertical. 

La tabla consiste en 7 líneas con únicamente un carácter vertical cada 
una de ellas. 

Observe que esto ocurrirá para cada valor de c inferior a 1, es decir, 
si coloca un número negativo a c, el efecto será el mismo que en el caso 
del cero. 


4. C=5, nc=0, f=3, nf=2 


El efecto es parecido al caso anterior, ahora no se entra en el bucle 
que se inicia en la línea 520 y finaliza en la línea 550. 

Tanto la raya como el blanco quedarán con 6 caracteres verticales. 

También aparecerán 7 líneas pues el número de filas y las líneas por 
fila son las mismas que antes. 


5. c=2, nc=2, f=0, nf=3 


Aquí la formación de r$ y b$ son normales. 

La dificultad radica en que el número de filas es cero y, por lo tanto, 
nunca se entra en el bucle que empieza en la línea 1000 y acaba en la línea 
1050. 

El resultado será la impresión de una única raya, la que corresponde 
a la escritura en la línea 1060. 


6. c=2, nc=5, f=3, nf=0 


Aquí no se entra en el bucle que se inicia en la línea 1020 y acaba en 
1040 pues nf es cero. 

El resultado serán 4 rayas, 3 filas más la última para cerrar. En otras 
palabras, no habrá ninguna escritura de la variable b$. 

Estas pruebas se han escogido para comprobar el funcionamiento del 
programa en situaciones límite. Las conclusiones son las siguientes: 


— Si cualquiera de los datos es cero o negativo no tiene sentido hacer 
la tabla. 


— Cuando el número de caracteres de r$ (o b$, es el mismo) supera 
la anchura de la pantalla, la tabla sale mal. 


— Cuando el número de líneas supera a 22 la tabla sale mal. 


9.6.4 Observaciones finales 


Después de las conclusiones obtenidas de las pruebas se sugiere mo- 
dificar la entrada de datos para evitar estos casos en que la tabla sale mal. 
En primer lugar podemos aprovechar que no se admite cero o negativo 
en el número de las columnas para finalizar el programa (hasta este mo- 
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mento debíamos entrar un STOP en algún INPUT o mediante la tecla de 
interrupción si se estaba ejecutando el programa). 

Como los demás datos tampoco pueden ser cero o negativos, si se 
entra un valor de este tipo puede servir para reiniciar la entrada de datos. 
Este sistema es útil pues uno puede darse cuenta que ha entrado un nú- 
mero de filas equivocado cuando el ordenador le pide el número de líneas 
por fila, se teclea en estos momentos un cero y se reinicia la entrada. 

Para tener en cuenta este control se deben añadir las instrucciones de 
BASIC siguientes: 


IF cc (<=0 THEN GOTO 9993 
1 not=O THEN GOTO 20 
IF £ (=0 THEN GOTO 20 
IE nf(=0 THEN GOTO 20 


6 an a on 


O dh 


La instrucción 25 sirve para finalizar y las demás para volver a empezar 
la entrada si nos equivocamos o si damos un valor incorrecto. 

Por otra parte queremos limitar las tablas a la capacidad máxima de la 
pantalla. Es necesario, por lo tanto, hacer un cálculo previo para tener en 
cuenta si nos cabe o no en pantalla. 

El número de columnas se calcula del modo siguiente: 


(nc+1)=c+1 


En efecto, cada columna tiene nc caracteres, además se le añade un es- 
pacio vertical, por eso le sumamos 1. Este cálculo corresponde al parén- 
tesis (nc+1), como esto vale para c columnas el resultado lo multiplicamos 
por c, esto corresponde a (nc+1)xc, a esto le añadimos 1 pues es nece- 
sario cerrar con un carácter vertical. 

Para el caso de las líneas la fórmula es muy parecida: 


(nf+1)4+1 


el razonamiento idéntico al de las columnas. 
Esto se aplica en el programa en las instrucciones siguientes: 


100 LET i ino+ 1) c+] 

110 LET 1 = (nmf+1)x*f+1 

120 1F ( i(= 32 AND 1(4=22 ) THEN GOTO 500 
130 PRINT "La tabla no cabe en la pantalla" 
140 GOTO 20 


La sentencia 120 merece un comentario. En ella se toma la decisión 
de ir a construir la tabla. Esta decisión consiste en saber si se cumple que 
la anchura, representada por la variable ¡ en estos momentos, es menor 
que 32, que es la anchura de la pantalla del ZX-SPECTRUM y si la longitud, 
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representada por j, es menor que la longitud de la pantalla del ZX-SPEC- 
TRUM. Para poder realizar la tabla deben cumplirse ambas condiciones a 
la vez; por lo tanto, las preguntas concretadas por los operadores relacio- 
nales menor o igual que (<=) se deben unir con un operador lógico AND, 
que sólo nos dará verdadero si ambas preguntas son verdaderas. 

El programa completo es el siguiente: 


10 LET vs" MaLeET ná" 

ZO INPUT "Columasilio 

23 1:06 30. TREN 6070.9999 

30. INEÉEUT "Caracteres por colimnal"3nco 
39 1F net=o THEN GOTO 20 

40 INPUT "Filasti"ifF 

435 125 F (=0 TAEN GOTO 20 


50 INSUT "Lineas por Filal"inf 
33 IF nf(<=0 THEN GOTO 20 

60 GLS 

1IO0U0LET ino+i) cel 


ion 


LAA ET (inf+1)x*F+1 

120 1 ( i(t= 32 AND 3(=22 ) THEN GOTO 500 
130 ERINT "La tabla ro cabe en la pantalla" 
140 GOTO 20 


500 LET ré=vé 32 LET bóz y% 
DIOS ROR-- 0d o 

3520 FOR? q3= 1 TO na 

530 LES rr éb+ hs 

40 LET of=pher " 

OO NEXT 1 

10) LET ro = rátr+ yó% 

370 LET b$ = DE+ v% 


380 NEXT 1 

1000 FOR i = 1 70 f 
1010 ERINT rá 

1020 FOR y = 1 TO nf 
1030 FRINT b$ 

1040 NEXT 3 

1050 NEXT di 

1060 ERINT r$ 

2000 GOTO 20 


9.7 PRÁCTICA 2. CONSTRUCCIÓN DE UNA TABLA 
FINANCIERA 


Este programa pretende construir una tabla financiera según se mues- 
tra en la figura 7. 

En la figura 7 tenemos en la dimensión vertical el número de años que 
depositamos en un banco una unidad monetaria. 
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Años Interés 

9 10 11 
1 1.09000 1.10000 1.11000 
2 1.18810 1.21000 1.23210 


3 1.29502 1.33100 1.36763 
4 1.41158 1.46410 1.51807 


5 1.53862 1.61051 1.68505 


Figura 7 Maqueta de una tabla 
financiera. 
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En el sentido horizontal diversos valores de rédito o interés, en nuestro 
caso 9, 10 y 11 % respectivamente. 

En el interior de la tabla el valor que tendrá esta unidad monetaria si 
se deposita un número de años igual al que marca la fila en donde está 
situada y a un interés que marca la columna donde está situada. Por ejem- 
plo, el valor 1.4641 es el valor que tendrá la unidad monetaria si la depo- 
sitamos en un banco al 10 % y durante cuatro años. Está situada en la 
intersección del año número 4 y de la columna de interés del 10 %. 

La fórmula para calcular los intereses compuestos es 


valor = (1 + interés en tanto por uno) elevado al número de años 


Es decir, debemos sumar 1 al interés dividido por 100, en el ejemplo 
que hemos puesto antes; 10 dividido por 100 es 0.1, a este número le su- 
mamos 1, con lo que se obtiene 1.1. Este valor elevado al número de años, 
en nuestro caso 4, da 1.4641. 


9.7.1 Definición del problema 


Vamos a realizar un programa para el cálculo de una tabla financiera. 

El número de años a considerar será de 1 a 5 fijo. 

Las columnas del interés se calculan a partir de un dato que nos pide 
el programa más un 1 % más en las columnas sucesivas hasta llegar a tres 
columnas. Por ejemplo, si a este dato le damos el valor de 5, el programa 
construye la tabia para el interés de 5, 6 y 7 %: 

Entre cada una de las filas de la tabla, el programa coloca una línea 
de guiones. Los valores del resultado serán de 7 cifras como máximo. 


9.7.2 Escritura del programa 


Las estructuras repetitivas en la tabla son fáciles de detectar. 
El esquema puede ser el siguiente: 


1. Inicializaciones. 


2. Entrada del interés. 


Si el interés es cero o menor acabar. 


3. Escribir la cabecera que consiste en: 
Escribir línea separación. 
Escribir títulos. 
Escribir los valores de los intereses. 


Escribir línea de separación. 


4. Bucle para cinco años: 


Bucle para el cálculo del valor de cada columna. 
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Escribir los resultados de una fila. 


Escribir la línea de separación. 
5. Reciclar para pedir el nuevo interés. 


Detallamos a continuación cada uno de los pasos: 


1. Inicializaciones: Es preciso tener memorizada la línea de separación 
pues se utiliza muchas veces. Por lo tanto, 


MOE A A " 


De momento no se preocupe por el número de guiones a colocar, 
cuando tenga el programa casi finalizado los podrá ajustar mucho mejor. 


2. Entrada de datos: No presenta ningún problema especial. Debido a 
que el rédito no puede ser cero o menor que cero se utiliza para finalizar 
el programa, las instrucciones son: 


100 REM Entrada del interes 
110 INPUT "Iinteres!":iredito 
120 1F redito (“= 0 THEN 60 TO 93999 


3. Escritura de la cabecera. 


Las instrucciones son las siguientes: 


200 REM Escritura de la cabecera 

Z10 CELS 

220 ERINT asliRRINT "Amyos interes" 
230 FOR 1 = 0 TO 2 

240 ERINT TAR(O+8*3);3redito+7; 

250 NEXT 3 

Z60 PRINT 1 ERINT as 


El único comentario es el bucle entre las líneas 230 a 250 que coloca 
los valores de los réditos a calcular, utilizando el tabulador que en el primer 
rédito vale 5, en el segundo vale 13 y en el tercero vale 21. El cálculo se 
realiza mediante la fórmula 5+8+j. Esta fórmula nos indica que el primero 
irá en la columna 5 cuando j vale cero. Entre un rédito y el siguiente dejará 
un espacio de 8 caracteres. El enunciado del problema nos dice que los 
números deben tener como máximo 7 caracteres, se deja uno más para 
dejar un espacio de separación entre los números. 

Observe que el PRINT en el interior del bucle se acaba con un punto 
y coma pues no queremos mover el cursor. 
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Cuando se sale del bucle se coloca un PRINT sólo para que salte de 
línea y a continuación se escribe la línea de separación que finaliza la ca- 
becera. 


4. El bucle principal: Es la estructura repetitiva que nos escribe las 
líneas para cada año. La estructura es la siguiente: 


300 REM Rucle principal 
310 FOR ií = 1 TO 5 
3900 NEXT i 


Dejamos espacio suficiente para desarrollar todo el cuerpo del bucle. 
La variable de control del bucle nos indica el número de años que es- 
tamos calculando. 


5. Cuerpo del bucle. Las instrucciones son las siguientes: 


600 REM Cuerpo del bucle 

610 PRINT is 

620 FOR 1 = O TO Z 

630 LET valor = (1+(redito+1)/100)71i 
B00 FRINT TAR (4+8*1):valor; 

810 MEXT 3 

820 ERINT 2 ERINT as$ 


En primer lugar (línea 610) se escribe el número de años que está 
contenido en la variable i. Se coloca a continuación un punto y coma pues 
hay que continuar escribiendo en la misma línea. 

De la línea 620 a 810 se realiza el bucle para los tres valores del rédito. 

El cálculo del valor final se realiza en la línea 630, aplicando la fórmula 
que se menciona en el enunciado del problema. Observe que al rédito se 
le suma j para obtener el valor según en la columna que estamos. Este 
valor se divide por cien para expresarlo en tanto por uno. Se le suma 1 y 
se eleva a la potencia i que es justamente el número de años. 

En la línea 800 se imprime el valor según indica el tabulador que sigue 
el mismo razonamiento que el explicado al escribir la cabecera. También 
se finaliza como punto y cosa para no ir más allá en la escritura de la línea. 

En la línea 810 se finaliza el bucle y en la 820 se ejecuta un PRINT 
para ir a la línea siguiente (recuerde que se ha acabado la última impresión 
con punto y coma) y se imprime a continuación la raya de separación. 


6. Reciclaje al inicio. Es simplemente una transferencia a la línea 100. 


1000 60 TO 100 


Ejecutamos ahora el programa. Dé como interés, por ejemplo, 9 para 
reproducir la figura 7. 


BASIC 


ZX — SPECTRUM 


Observará que cuando los números tienen muchas cifras decimales la 
construcción sale mal. 

De hecho en todo el diseño hemos olvidado que nos dicen que sólo 
queremos 7 caracteres para los números. 

Es necesario pasar el valor a cadena de caracteres antes de escribir 
y si sobrepasa los 7 caracteres cortarla. Lo podemos hacer con las ins- 
trucciones siguientes: 


700 LET c$= STR$(valor) 
710 IF LEN c$)7 THEN LET c$=c$(1 TO 7) 
800 FRINT TAB(4+8x*3):0$; 


En la línea 700 pasamos valor a la cadena de caracteres c$ mediante 
la función STR$. 

En la 710 preguntamos si la cadena sobrepasa los 7 caracteres, en 
este caso sólo tomamos los 7 primeros. 

Finalmente debemos modificar la 800 para que nos escriba c$, en lugar 
de valor. 

El programa completo es el siguiente: 


OLE sr AAA e e e e e si 
100 REM Entrada del interes 
110 INEUT "Interes:";3redito 
120 1F redito (= O THEN 60 TO 9993 
200 REM Escritura de la cabecera 


210 CLS 

220 PRINT a$:FPRINT "Anyos Interes" 
230 FOR y = 0 TO 2 : 
240 PRINT TAB(5+8* 1); redito+J; 

250 NEXT 3 


260 PRINT : ERINT as 

500 REM Bucle principal 

510 FOR i = 1 TOS 

600 REM Cuerpo del bucle 

610 ERINT 1; 

620 FOR y = 0 TO 2 

630 LET valor = (i1i+(redito+7)/100)*i 
700 LET c%$= STR$(valor) 

710 1F LEN c$)7 THEN LET cé=c$(1 TO 7) 
800 PRINT TAR(4+8%3)30%;3 

B10 NEXT 3 

820 ERINT 5: FRINT as 

3900 NEXT i 

1000 60 TO 100 


Las líneas en blanco que hay entre las líneas del programa es una 
manera de clarificar el listado, en la máquina no las podrá colocar. 

Ahora es el momento de ajustar el número de guiones para tener una 
línea de las dimensiones necesarias. 
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10.1 NOMENCLATURA 


En el ZX-SPECTRUM, el nombre de los conjuntos dimensionados 
consta de una sola letra. Si el conjunto es de tipo textual, además de la 
letra, el nombre llevará el símbolo dólar ($) al final del mismo. Por tanto, no 
podemos manejar más de 26 conjuntos a la vez puesto que sólo dispo- 
nemos de 26 letras para nombrarlos. Sin embargo, esta limitación carece 
de importancia, ya que muy pocas veces se trabaja con más de 4 ó 5 con- 
juntos a la vez. 


10.2 INSTRUCCION DIM 


La palabra DIM se encuentra sobre la letra D. En el ZX-SPECTRUM 
se admiten conjuntos de una, dos, tres o más dimensiones. Para las varia- 
bles de tipo numérico, la instrucción DIM se comporta de forma estándar. 
Por el contrario, para las de tipo textual existen algunas peculiaridades que 
veremos a continuación. 


10.3 VARIABLES TEXTUALES 


En el BASIC estándar cada elemento de un conjunto dimensionado 
puede tener un número de caracteres distinto de los demás elementos. Esto 
no es posible en el ZX-SPECTRUM. En este ordenador todos los elementos 
contienen exactamente el mismo número de caracteres. Este número hay 
que indicarlo en el momento de establecer la dimensión. La forma de in- 
dicarlo es añadiendo otro número a la lista de dimensiones. Este último 
número es el que indica cuántas letras o caracteres contendrá cada ele- 
mento del conjunto. 

La instrucción 


DIM N$(20, 15) 


significa que N$ es una lista textual de 20 elementos, cada uno de los cua- 
les tiene 15 letras. Asimismo la instrucción 


DIM. T$130, 2,25) 


establece que T$ es una tabla de 30 filas y dos columnas. Cada elemento 
de T$ contendrá 25 símbolos. 
Si sólo indicamos una dimensión, por ejemplo: 


Dim A$(15) 
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significa que limitamos la longitud total de A$, en lugar de establecer una 
lista. Es decir, que A$ continúa siendo una variable simple de tipo textual, 
pero que sólo puede contener 15 letras como máximo. 

Este comportamiento se aparta notablemente del BASIC estándar. 
Convendrá pues, vigilar atentamente este punto cuando queramos realizar 
adaptaciones de programas escritos para otros ordenadores y viceversa. 
No olvidemos que esta diferencia de comportamiento sólo se aplica a con- 
juntos de tipo textual. Los numéricos se comportan de forma normal. 


10.4 EXTENSIONES DE LA INSTRUCCION DIM 


En el BASIC del ZX-SPECTRUM se admite la utilización de una ex- 
presión dentro de un DIM. Por tanto, es válido escribir 


10 LET N=30 
ZO DIM AN) 


Sin embargo, en una sola instrucción DIM no se permite definir más 
de un conjunto. Por tanto, en el ZX-SPECTRUM no se admite una instruc- 
ción del tipo 


10 Di” N$(10,233,0(25) 


sino que habrá que utilizar dos instrucciones 


10 DIM N$(10,:23) 
20 Dim A(23) 


o bien, colocando las dos instrucciones en una sola línea 


10 DIM N$(10,25) 1 DiM ACZO) 


10.5 EMPLEO DE LA INSTRUCCION DIM 


Como ya sabemos, la instrucción DIM debe usarse antes de utilizar 
cualquier elemento de un conjunto. En el ZX-SPECTRUM al contrario del 
BASIC estándar sí que está permitido cambiar la dimensión de un conjunto 
durante la ejecución. Sin embargo, es una práctica que no recomendamos 
en absoluto, por dos razones: 

La primera de ellas es que nuestros programas serán incompatibles 
con otros ordenadores. 
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La segunda razón es más importante. Ya hemos comentado en capí- 
tulos anteriores que cuando se elabora un programa para resolver un nuevo 
problema, la primera tarea a realizar antes de ponernos a teclear es efec- 
tuar un diseño previo. Una parte de este diseño consiste en construir una 
lista de variables y conjunto con sus dimensiones. Por tanto, si se establece 
el tamaño de un conjunto al principio, no tiene sentido retocarlo a medio 
programa. 

La dimensión máxima utilizable depende del modelo (16K o 48K) y del 
gasto de memoria efectuado por el resto del programa. Si se emplea una 
dimensión demasiado grande, como por ejemplo 


DIM A(3000) 


el ordenador da el siguiente mensaje 
4 Out of memory 0:1 


que significa que el ordenador no tiene espacio suficiente en la memoria 
para almacenar el conjunto A. 


10.6 UTILIZACION DE CONJUNTOS DIMENSIONADOS 


En la utilización de conjuntos dimensionados de tipo numérico no hay 
ninguna diferencia respecto al BASIC estándar. En cambio, para los de tipo 
textual existen algunas variaciones. Las diferencias vienen motivadas por 
la distinta forma que tiene el ZX-SPECTRUM de establecer las dimensio- 
nes. 

Como sabemos, en el ZX-SPECTRUM todos los elementos del con- 
junto tienen exactamente el mismo número de símbolos. Como conse- 
cuencia, si intentamos almacenar un texto que tenga más caracteres que 
los admitidos, quedará truncado. Si por el contrario, se almacena un texto 
con menor número de símbolos, entonces el espacio sobrante se llena con 
espacios en blanco. Veámoslo con un ejemplo 


10 DIM ES$(4,6) 
20 LET E$(1)="CASA" 
30 LET BS$(2)="CASTILLO" 


En la línea 10, se define una lista B$ de cuatro elementos, cada uno 
de los cuales tiene 6 letras. en la línea 20 asignamos la palabra CASA de 
4 letras al primer elemento de la lista. Puesto que quedan dos posiciones 
por ocupar (6-4=2) se almacenan dos espacios en blanco al final de CASA. 
Es decir, que en lugar de almacenar «CASA» de longitud 4, se almacena 
«CASA » de longitud 6. 

En la línea 30 ocurre lo contrario. La palabra CASTILLO tiene 8 carac- 
teres. Por tanto quedará cortada y se almacenan únicamente los 6 primeros 
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caracteres. Es decir, que el segundo elemento de la lista contendrá «CAS- 
TIL». 

Podemos comprobarlo escribiendo, después de efectuar un RUN, la 
instrucción 


FPRINT B$ (1) ¡Dé (2) 


que escribirá en pantalla 
CASA CASTIL 


De nuevo insistimos que este comportamiento se aparta notablemente 
del funcionamiento estándar. Convendrá pues vigilarlo, especialmente 
cuando utilicemos la instrucción IF/THEN. Al contener un número extra de 
espacios en blanco, el BASIC encuentra que dos textos son distintos 
cuando originalmente eran iguales. Para comprender mejor este punto aña- 
diremos la siguiente instrucción al programa anterior 


40 1F B$(1) O "CASA" THEN FRINT "DISTINTOS" 


Al efectuar un RUN, el programa escribirá el mensaje «DISTINTOS». 
Esto ocurre porque «CASA» con dos espacios en blanco es distinto (desde 
el punto de vista del ordenador) de «CASA» sin espacios. 

Este problema es típico del ZX-SPECTRUM y no aparece en el BASIC 
estándar. Sin embargo existen soluciones que veremos más adelante. 


10.7 ELEMENTO CERO 


En el ZX-SPECTRUM no existen los elementos con índice cero. Esto 
no constituye ningún problema puesto que generalmente no se trabaja con 
estos elementos 
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10.8 PROCEDIMIENTOS BASICOS 
10.8.1 Llenar un conjunto 

Los programas para llenar conjuntos numéricos no sufren variación 
respecto a lo que estudiará en la lección estándar. Por el contrario, en el 


primer programa utilizado para llenar el conjunto de tipo textual deberá cam- 
biarse la línea 10 por 


Dim ER(4, 6) 
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Igualmente para el segundo ejemplo, la línea 10 queda 


10 LET N=4 2 DIM ES(N,6) 


10.8.2 Escribir un conjunto 


Como sabemos por las primeras lecciones, el ZX-SPECTRUM escribe 
los resultados numéricos sin añadirles espacios en blanco. A causa de esto, 
al escribir un conjunto de dos dimensiones en forma de tabla, las cifras de 
los elementos de una columna quedan pegadas a las de la siguiente co- 
lumna. 

Para evitarlo, en el programa que realiza esta operación se cambia la 
instrucción 100 por 


100 PRINT C(1,J)3" "s 


De esta forma cada resultado quedará separado de los demás por un 
espacio en blanco 


-< 


10.8.3 Localización por número 
Al tratarse de un conjunto de tipo textual habrá que realizar en el pro- 


grama estándar las modificaciones ya comentadas. Entonces la línea 20 
queda: 


20 LET N=3 12 DIM A$(N, 30) 


Se toma el valor 30 para la longitud total de cada texto almacenado. 
Si se prevé que los textos serán más cortos o más largos se cambiará el 
30 por el valor adecuado. 


10.8.4 Localización por nombre 
En este programa hay que introducir dos modificaciones para adaptarlo 
al ZX-SPECTRUM. La primera de ellas afecta a la instrucción DIM. La línea 
20 queda 
ZO LET ON=5 1 DiM A$(N, 10) 


Reservamos 10 caracteres para cada elemento de la lista. Esto sig- 
nifica que si utilizamos nombres con menos letras, se completarán con es- 
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Hay que rellenar la entrada 
con blancos 


pacios en blanco. Entonces para que la línea 90 funcione correctamente 
deberemos entrar el nombre a localizar con los espacios en blanco corres- 
pondientes hasta completar 10 caracteres en total. Es obvio que con este 
procedimiento es fácil que el operador cometa errores al contar el número 
de espacios en blanco. Esto daría como consecuencia que el programa no 
localizafía nombres que en realidad sí están en la lista. 

Este problema se puede solventar haciendo que en la instrucción IF 
de la línea 90 se compruebe la igualdad añadiendo al texto entrado por el 
operador, los espacios en blanco suficientes para que la longitud sea la 
misma que los elementos de la lista. 

Se puede utilizar el valor 10 utilizado en la dimensión de tal manera 
que combinándolo con la función LEN se debe añadir la instrucción 


85 17 LEN (X$) 10 THEN LET X$=X$+" ": G0 TO8S 


Si se quiere hacer el programa independiente de este 10 ya que se 
puede modificar la dimensión y olvidarse de tocar esta instrucción. Se utiliza 
la función LEN para determinar la longitud del elemento de la tabla. La ins- 
trucción queda entonces como 


83 1F LEN(X$) ( LEN(ASC(ID) THEN LET X$=X$+" ":60 TO 85 


También como todos los elementos de A$ (l) tienen la misma longitud, 
es posible añadir estos blancos antes del bucle y ahorrarnos la repetición 
de esta operación cada vez que repetimos la pregunta en el bucle. Así se 
puede escribir 


73 1F LEN(X$) € LEN(AS(1)) THEN LET X$=X$+*" "1 GD TO. AS 


Este ejemplo no enseña que hay que evitar colocar en el interior de 
los bucles operaciones innecesarios pues el tiempo de cálculo se alarga 
notablemente debido al esquema repetitivo del bucle. 

Observe que la primera solución se obtiene aplicando un criterio rápido, 
cuando reflexionamos más profundamente encontramos el punto justo de 
programación: como todos los elementos de la tabla tienen la misma lon- 
gitud se puede alargar X$ antes de entrar en el bucle. 

Este procedimiento o variantes del mismo es el que utilizaremos en el 
ZX-SPECTRUM cuando los espacios en blanco de relleno nos causen di- 
ficultades. Tenga en cuenta estas observaciones al estudiar ahora la lección 
estándar. 


10.8.5 Fecha en letras 


Como de costumbre, modificaremos la línea que contiene la instrucción 
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DIM. El mes que tiene mayor número de letras es septiembre con 10. Por 
tanto, la lista N$ tendrá 12 elementos de diez letras. La línea 20 queda 


ZO DIM N$(12,10) 


Como ya dijimos en la lección dedicada a funciones, en el ZX-SPEC- 
TRUM no existen las funciones estándar LEFT, MID y RIGHT. En su lugar 
se usa el operador de fragmentación. Las líneas 170, 180 y 190 quedan 


170 LET Dé=F$(1 TO 2) 
1890 LET Me=F$(4 TO S) 
190 LIT A$=F$(7 TO 5) 


El resto del programa no sufre variación. 


10.8.6 Cálculo de la media 


Puesto que se trabaja con conjuntos numéricos, no hay que introducir 
modificaciones en los programas y funcionan directamente en el ZX-SPEC- 
TRUM. 
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10.9 PRACTICA 1. EL JUEGO DEL MASTER-MIND 
10.9.1 Reglas del juego 


El juego del Master-Mind consiste en oponer a dos jugadores. El primer 
jugador, que llamamos A, dispone de seis peones de colores distintos. De 
estos peones escoge cuatro que sitúa en un orden determinado dentro de 
un cuadro preparado al efecto. 

Por ejemplo, los colores de los seis peones son: rojo, azul, verde, ama- 
rillo, naranja y marrón. Elige 4 peones el rojo, azul, verde, amarillo y los 
coloca en este orden en un cuadro de cuatro casillas. Es importante man- 
tener el orden, es decir, en el primer cuadro se coloca el rojo, en el segundo 
cuadro se coloca el azul, en el tecer cuadro se coloca el verde y finalmente 
en el cuarto cuadro se coloca el amarillo. 

Esta ordenación de peones en el cuadro se mantiene oculta al segundo 
jugador. 

Observe que esta elección de cuatro colores entre los seis que hay 
impide que en la configuración oculta se repitan los colores de un juego a 
otro. 

El segundo jugador, que llamamos B, intenta acertar la combinación 
oculta que ha realizado A mediante ensayos sucesivos. 

Después de realizar un ensayo el jugador A informa al B de una manera 
limitada. La información que suministra A a B es: 
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a) Número de peones que ha acertado tanto en color como en posición. 
Se utilizan para esta tarea marcadores de color negro. 


b) Número de peones que ha acertado en color pero que están en una 
posición incorrecta. Se utilizan entonces los marcadores blancos. 


Veamos un ejemplo, si la combinación oculta es: 
rojo azul verde amarillo 
y el jugador B da como combinación de prueba: 
rojo verde marrón naranja 


La información que debe suministrar A a B es de un marcador negro 
y uno blanco. El marcador negro proviene de que el peón rojo se ha acer- 
tado en color y posición. El marcador blanco proviene de que el peón verde 
se ha acertado en color pero no en posición. 

Con esta información el jugador B ensaya una nueva combinación que 
le aporta una nueva información y así sucesivamente hasta que consiga 
acertar la combinación. 


10.9.2 Definición del problema 


El objetivo de esta práctica consiste en realizar un programa que actúe 
como jugador A, siendo el B el operador que actúa sobre el teclado. 

Por otra parte, en lugar de utilizar los colores se utilizan las seis pri- 
meras cifras arábigas, es decir, el 1, 2, 3, 4, 5 y 6. Este tipo de codificación 
es más conveniente al ordenador y no introduce ninguna modificación esen- 
cial al juego. Cada cifra es el código de un color. 

El problema se puede descomponer en cinco partes: 


1. Hay que comunicarse con el exterior para pedir la combinación que en- 
saya el jugador B, manteniendo un sistema de información de los ensayos 
realizados. 


2. Dada una respuesta de B el programa debe determinar la contestación 
de los marcadores. 


3. Hay que definir la configuración oculta. 


4. Encadenar un ensayo después de otro en tanto la respuesta de los mar- 
cadores no sea cuatro negro, que significa que se han acertado los cuatro 
colores en las cuatro posiciones; en este caso el jugador B ha ganado y no 
se ha sobrepasado un número determinado de ensayos. Si se sobrepasa 
el número de ensayos sin acertar los cuatro colores, el jugador B ha per- 
dido. 


5. Mecanismo de encadenar un juego detrás de otro. 


Respecto a los datos, utilizaremos una lista de las cifras de tal manera 
que el contenido es la cifra que está en una determinada posición. Por ejem- 
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plo, a la combinación oculta le asignaremos una lista (conjunto dimensio- 
nado de una dimensión) de cuatro elementos que llamaremos r que con- 
tiene en cada elemento la cifra que está en la posición de la lista. Así, 


r(1)=3;r(2)=6;r(3)=2;r(4)=1 


indica que la cifra 3 está en primera posición, la cifra 6 está en segunda 
posición, la cifra 2 está en tercera posición y la cifra 1 está en cuarta po- 
sición. 

De la misma manera la combinación de ensayo se almacena para el 
análisis de la información a suministrar a B en otra lista que tiene las mis- 
mas características y que se denomina a. 

Esto obliga a definir con la instrucción DIM cada una de estas listas y 
es la primera instrucción del programa. 


10.9.3 Escritura del programa 


Según las definiciones de los datos la primera instrucción del programa 
debe ser dimensionar la variable que contendrá la combinación oculta y la 
variable que contendrá la combinación que le da el operador para tratar de 
averiguarla. Por tanto, escribiremos: 


10 DIM r(4):D1M atá4) 


Recordemos que r es la combinación oculta y a es la combinación de 
ensayo (deben utilizarse dos instrucciones DIM en el ZX-SPECTRUM). 
Para simplificar el problema considere que la configuración oculta es la 
que se ha dado antes, es decir, 


r(1)=3;r(2)=6;r(3)=2;r(4)=1 
La generación de esta configuración oculta la diferimos hasta que se 


resuelva el resto del programa, por lo tanto, provisionalmente escribimos 
las instrucciones: 


10 DIM r(4) : DIM at4) 
100 LET r()= 3. 1 LET. ni2).=.6 
¡IO LE ri): 2.5 LET rt) - 1 


Reservamos el bloque de instrucciones de la 100 hasta la 500 para la 
programación de la elección de la combinación oculta. 


10.9.3.1 La entrada de las combinaciones 


El segundo paso consiste en realizar la entrada de datos por parte del 
jugador B. 
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Lo único que hay que controlar es que los números que se entran estén 
comprendidos entre 1 y 6. Observe que no hay que controlar si se repiten 
las cifras o no. Hay jugadores que utilizan la estrategia de repetir números 
para mejorar la información. 

El esquema de comprobación es: 


La línea 510 es una pregunta para decidir si el número entrado está 
comprendido entre 1 y 6 ambos inclusive. La técnica se ha explicado am- 
pliamente en la lección 6. 

Este trozo está pensado para entrar en una sola cifra, pero el problema 
se repite para las cuatro cifras, basta sustituir a por los elementos de la 
lista. Tal como está la utilización de a es incorrecta pues se trata de una 
variable dimensionada. (De hecho el ZX-SPECTRUM no le señala error, es 
decir, puede utilizar el mismo nombre de variable para una dimensionada 
y otra sin dimensionar. Es una práctica que no le recomendamos, porque 
se presta a mucha confusión y hace el programa inadaptable a otros BA- 
SIC). 

Es necesario añadir un bucle además para que se produzca la entrada 
de datos de cada una de las cifras. Un esquema de esta entrada es el 
siguiente: 


Esta versión es esencialmente la misma, lo único que se ha añadido 
es una indicación del elemento que estamos entrando en el INPUT y el 
bucle para entrar las cuatro cifras. 

Sin embargo, si pensamos en la mecánica de entrar nos daremos cuenta 
que cuando estamos entrando la tercera cifra nos gustaría modificar la pri- 
mera. Es decir, en cualquier momento de la entrada debemos prever que 
se puede anular y reiniciar el proceso. Para realizar este proceso se puede 
utilizar la cifra cero que nos indica que queremos reiniciar la entrada. 

El programa debe alterarse del modo siguiente: 
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E... 1..2..3..4.... N..B 
13542 11 
2 1642 12 
3.3516 12 
4 5261 172 
52613 13 
6 31 26 22 
7 3621 40 
Ha acertado 


Figura 1 Modelo de sistema de 
información 
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10.9.3.2 El sistema de información 


El sistema de información es el que precisa B para un buen control del 
juego. Dado que en el ZX-SPECTRUM la entrada de datos se realiza en la 
parte baja de la pantalla podemos utilizar la parte alta para mantener la 
información restante. 

Se utiliza una línea de pantalla para registrar el resultado de un ensayo. 
Consta de varias columnas en la que se registra la combinación de cifras 
entrada y el número de marcadores negros y blancos obtenidos. 

Por ejemplo, la tabla de la figura 1 es un esquema del sistema de in- 
formación. 

Desde el punto de vista de programación nos obliga a: 


1. Escribir la cabecera de pantalla antes de iniciar las entradas de datos. 


2. Tener una variable que nos controle qué ensayo está realizando el ju- 
gador B. 


3. Visualizar en la línea correcta la combinación entrada por el jugador B. 


4. Escribir el resultado de los marcadores también en la línea correcta. De 
momento consideremos otra vez la parte de la entrada de datos. Para sin- 
cronizarse con el sistema de información debemos diseñar una fase previa 
de colocación de la tabla y el número de ensayo. 

El programa quedaría entonces como: 
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La línea 500 nos limpia la pantalla, esto no sería necesario la primera vez 
pues el ZX-SPECTRUM lo hace automáticamente; sin embargo, cuando 
encadenamos un juego con el siguiente será necesario limpiar el juego an- 
terior. 

Las líneas 510 y 520 colocan la cabecera del sistema de información. 

Las líneas 530 y 540 inicializan las variables e y p. La variable e es la 
que nos sirve para contar los ensayos y la variable p para saber en qué 
línea hay que escribir en el sistema de información. Se coloca la e inicial- 
mente a 1 y la p a 3 para que se inicie en la cuarta línea, tenga en cuenta 
que el ZX-SPECTRUM inicia la pantalla en la línea O. Se deja, por lo tanto, 
una línea en blanco entre la cabecera y el primer ensayo. 

Las líneas 600, 610 y 620 son las que inician el ensayo imprimiendo 
en el sistema de información el ensayo que estamos realizando. Sorprende 
un poco la utilidad de la línea 610. 

Simplemente escribe blancos sobre la línea de ensayo, esto se hace 
porque como ya hemos dicho cuando se teclea un cero en la entrada de 
datos queremos volver a iniciar la combinación. Entonces hay que dejar 
esta línea limpia de los datos anteriores. 

De la línea 700 hasta la 780 es propiamente la entrada de datos que 
hemos diseñado ya. Sólo son necesarios los comentarios siguientes: 


1. En el INPUT no se coloca la indicación del elemento pues el sistema de 
información nos indica claramente qué elementos estamos entrando. 


2. El mensaje de «Cifra incorrecta» se visualiza en la línea 20 de la pantalla 
para no molestar en el sistema de información. Para que el mensaje no 
quede siempre colocado es necesario después del INPUT escribir blancos 
en esta línea. De esta manera cuando detectamos un error volvemos al 
INPUT, una vez hemos entrado el nuevo dato borramos la línea de pantalla 
n? 20 que contiene el mensaje de error y reemprendemos otra vez el aná- 
lisis de la nueva cifra entrada. 


3. La línea 770 nos escribe la cifra correcta entrada en su lugar en la tabla 
de información. Para ello se utiliza la fórmula 3*i+1, que calcula la columna 
en que hay que poner la cifra en función de la variable de control del bucle. 


4. Cuando la cifra entrada es un cero, entonces el sistema vuelve a la línea 
600 como si entráramos de nuevo en el ensayo. 


Ya estamos en condiciones de hacer una prueba del programa 

Recuerde que la instrucción 10, 100 y 110 están definidas en el apar- 
tado anterior. 

Teclee el RUN y observará cómo funciona el mecanismo diseñado. 

Es necesario que pruebe la entrada de cifras incorrectas y utilice el 
cero como inicio del ensayo. 


10.9.3.3 El cálculo de los marcadores 


Para el cálculo de los marcadores es necesario disponer de dos varia- 
bles numéricas que cuenten los aciertos de un tipo u otro. Las denomina- 
remos n para el recuento de los marcadores negros y b para el de los blan- 
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cos. Es decir n para los aciertos en color (cifra en nuestro caso) y posición 
y b para los aciertos en el color sólo. 

Una vez colocadas las variables de los marcadores a cero hay que 
iniciar un repaso de la configuración oculta para ver el grado de coinciden- 
cia. 

Esto se organiza en dos bucles anidados. El más externo para elegir 
cada uno de los elementos de la combinación oculta. El más interno com- 
para el elemento de la combinación oculta seleccionado con cada uno de 
los elementos de la combinación de ensayo. 

En el momento que se encuentran dos elementos iguales debe pre- 
guntarse si las posiciones de los elementos en el interior de sus respectivas 
combinaciones son coincidentes. 

En el caso de que lo sean se incrementa la variable asociada al mar- 
cador negro, en caso contrario, la posición no es coincidente, se incrementa 
la variable del marcador blanco. 

El programa que realiza esta comparación es el siguiente: 


800 REM Calculo de marcadores 

B10 LET b = 0 2 LET n= 0 

820 FOR i=1 TO 4 

830 FOR y = 1 T0 4 

340 1F r(i)> O atu) THEN GO TO 690 
850 1F 10.3 THEN 60 TO 880 

860 LET n= n+1 

a70 69 TO 8390 

880 LET b= b +1 
8390 NEXT 1 

300 NEXT i 

310 ERINT AT p, 183nm3” sb 


La línea 810 inicializa las variables b y n. 

La línea 820 abre el bucle externo que se cierra en 900. La variable ¡ 
nos indica qué elemento de la combinación oculta estamos comparando. 

La línea 830 abre el bucle interno que se cierra en 890. La variable ¡ 
nos indica el elemento de la combinación de ensayo que estamos com- 
parando. 

La línea 840 compara la cifra de ambas combinaciones. Si son distintas 
envía el control del programa al final del bucle más interno. 

En el caso de que las cifras sean iguales se alcanza la instrucción 850 
que pregunta si los valores de ¡, posición en la combinación oculta, y j¡, 
posición en la combinación de ensayo son distintas, si la respuesta es afir- 
mativa se incrementa la variable b en uno, se han detectado cifras iguales 
en las dos combinaciones pero que no están en la misma posición. 

Si las posiciones ¡ y j son iguales además de tener cifras iguales te- 
nemos posiciones coincidentes hay que incrementar el marcador negro. 

Una vez hemos hecho el repaso completo de todas las cifras de la 
combinación oculta con la combinación de ensayo alcanzamos la línea 910 
en donde se escribe el resultado en el lugar correcto de la pantalla, indicado 
por la fila p y por la columna 18. 
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10.9.3.4 Encadenamiento de los ensayos 


Tenemos ya completa la entrada de una configuración de ensayo y el 
diagnóstico respecto a la configuración oculta. 

Es necesario para que el juego pueda funcionar encadenar un ensayo 
al siguiente. Los ensayos se inician en la línea 600 tal como hemos seña- 
lado. 

Las variables de control son e y p, la primera nos indica el número de 
ensayo y la segunda el lugar de la línea de información. 

Una vez finalizado el ensayo lo primero que hay que hacer es incre- 
mentar estas variables. 

A continuación hay que decidir si el juego ha finalizado. Esta finaliza- 
ción puede ocurrir ya sea porque se ha sobrepasado el límite ya sea porque 
se ha acertado la combinación oculta. 

La primera condición corresponde al caso de que el jugador B pierde 
y la segunda la que el jugador B gana. 

Las instrucciones siguientes realizan estas funciones: 


La línea 1000 incrementa las variables de control. 

La línea 1010 se hace la pregunta de si no se ha alcanzado el final de 
la partida. Se pregunta, por un lado si e<10 que corresponde a un tope de 
ensayos fijados de antemano para acertar la combinación. Por otro, si el 
marcador de negros es menor que cuatro, con n igual a cuatro se ha acer- 
tado la combinación. Se encadenan las dos preguntas y si ambas son cier- 
tas se autoriza un nuevo ensayo. 

En caso de que no se sigan los ensayos las instrucciones 1100 hasta 
la 1200 dan el diagnóstico del final de la partida. Este diagnóstico se basa 
en el resultado de si n vale cuatro que es el caso de que se ha ganado. 

El número 10, es decir, el límite de ensayos permitidos son los que 
colocan la dificultad del juego a un nivel determinado. Por lo tanto, variando 
este número se puede hacer el juego más fácil o difícil, probablemente el 
valor que da una dificultad razonable al juego es de 6 Ó 7. 


10.9.3.5 Obtención de la combinación oculta 


El mecanismo de selección de la combinación oculta puede ser auto- 
mático o manual. 

El procedimiento automático consiste en utilizar una función que dis- 
pone el ordenador para generar números al azar. Este mecanismo aún no 
se ha estudiado en esta lección, se verá en una lección posterior. 
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Por lo tanto, optamos en este caso para el mecanismo de selección 
manual. En este tipo de generación la entrada de las cifras se hace me- 
diante el teclado. En el caso de generación automática bastará sustituir esta 
llamada al teclado por la llamada a otra función. Volveremos a este me- 
canismo en el momento oportuno. 

La idea de entrar la combinación oculta es el mismo que hemos dis- 
cutido para la entrada de la combinación de ensayo. 

En este caso, sin embargo, no deberemos utilizar toda la parte de mar- 
cadores ni tampoco encadenar los ensayos sucesivos. Será necesario, por 
otra parte, borrar la pantalla con la combinación oculta para que efectiva- 
mente se mantenga oculta al jugador B durante los ensayos. También será 
necesario comprobar que no se entren cifras repetidas pues las reglas del 
juego impiden que haya dos cifras iguales en la configuración oculta. 

La líneas de programación son las siguientes: 


100 REM Seleccion Configuracion E 
110 CLS 12 PRINT "Configuracion secreta” 
LLOC ARRINT al do e 

130 PRINTS A 

140 PERINT " +» 

200 FOR i = 1 TOA a 

210 INPUT ri): FRINT AT 20,07" is 
220 1 r(i)> = O THEN 60 TO 100 

230 IF O(r(i) AND r(í)(7 THEN 60 TO 300 
240 FPRINT AT 20,0:"Cifra incorrecta" 
250 60 TO 210 

260 PRINT AT 20,0: "Cifra repetida” 

70 60 TO 210 

300 FOR q = 1 TO i-1 

3510 1F r(i) = vr(1) THEN 60 TO 260 

320 NEXT 3 

330 PRINT AT 3, 3*iciz3r(i) 

40 NEXT i 


De la línea 100 hasta la 140 sirven para borrar la pantalla y preparar 
la cabecera para indicar la posición de los elementos. 

En la línea 200 se inicia el bucle para cada una de las posiciones de 
la combinación oculta. Este bucle finaliza en la línea 400. 

La línea 210 es el INPUT que nos pide la cifra y el borrado de la línea de 
error tal como explicábamos en el apartado de la entrada de las combi- 
naciones. 

La línea 220 analiza si la cifra es cero, en este caso envía el control 
del programa a reiniciar la entrada de la configuración oculta. 

La línea 230 comprueba si la cifra está comprendida entre los már- 
genes adecuados en este caso envía el control a la línea 300. 

Si la cifra no es correcta continúa por la línea 240 que da el mensaje 
de error y se recicla a la línea 210, nueva entrada de la cifra. 
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Las líneas 260 y 270 es la escritura del mensaje de error de cifra re- 
petida y posterior reciclaje a una nueva entrada. A esta línea accederemos 
desde más abajo en el bucle. 

En la línea 300 se inicia el mecanismo de comprobación de si las cifras 
están repetidas. 

Para ello se inicia el bucle cuya variable de control es j. La variable de 
control se inicia con el valor de 1 y con un valor final de ¡-1 que es el co- 
rrespondiente a la posición anterior a la que estamos entrando. 

Evidentemente cuando entramos la primera cifra este valor final vale 
cero y por lo tanto el bucle no se recorre ninguna vez. En la primera cifra 
no se ha de hacer ninguna comprobación. 

El interior del bucle consiste en una decisión de tal manera que si la 
cifra entrada es igual a una de las cifras anteriores el programa continúa 
por la línea 260 que corresponde al error de cifra repetida. 

Una vez se ha alcanzado el final del bucle obtenemos una cifra co- 
rrecta. Se imprime a continuación la cifra en el lugar correspondiente a la 
pantalla (línea 330) mediante una función que depende de la variable de 
control del bucle más externo que es la posición que estamos entrando. 

La línea 400 nos cierra el bucle iniciado en la línea 200. A partir de este 
momento interviene ya el jugador B. 


10.9.3.6 Encadenamiento de partidas 


El último paso consiste en que cuando finaliza el juego el programa 
nos pregunta si deseamos jugar otra partida y en este caso se recicla al 
inicio de una nueva configuración oculta. 

No se debe repetir la instrucción que contiene la dimensión pues no 
debe ejecutarse dos veces. 

El resto del programa es: 


2000 INFUT "Guiere ¿ugar otra partidals/nm)":as 
2010 1F a$0 "n” THEN 60 TO 100 


10.9.4 Observaciones finales 


Indicar, finalmente, que se trata de un juego divertido y que el programa 
le permitirá pasar ratos agradables. 

Desde el punto de vista de programación es un programa interesante 
pues aparecen operaciones relativamente complicadas con las tablas. 

Observe que las tablas y los FOR/NEXT son compañeros inseparables. 

Estudie con detalle el mecanismo de comprobar la repetición en la ob- 
tención de la configuración oculta y el mecanismo de obtención de los mar- 
cadores son nuevos procedimientos básicos para la manipulación de tablas. 

Finalmente guarde el programa en un cassette con el nombre de 
«mind». 

El listado completo del programa se da a continuación. . 
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1010 1F ecló AND n(4 THEN 560 TO 600 

1100 REM Finalizacion del ¿juego 

1110 1F n=4 THEN GO TO 1200 

1120 PRINT AT o, 1i;3"Lo siento ha perdido" 

1130 60 TO 2000 

1200 ERINT AT p, 1; "Muy bien. Ha ganado" 

2000 INFUT "Quiere Jugar otra partida (s/n)":a$ 
2010 1F a$0 "rn" THEN GO TO 100 


10.10 PRACTICA 2. TABLA DE CONVERSION DE MONEDAS 


10.10.1 Objetivo 


La práctica consiste en realizar un programa que dada una cantidad 
de dinero en ciertas unidades monetarias, calcule el valor en otras unidades 
monetarias. 

Supongamos que trabajamos con las siguientes unidades monetarias: 
pesetas, dólares USA, libras esterlinas, marcos alemanes y yens japone- 
ses. 

El ordenador debe responder a la pregunta de ¿Cuánto son 2 dólares 
USA en valor del resto de unidades monetarias? 

Es decir, debe calcular una lista con los valores siguientes: 


313 Pesetas, 2 Dólares USA, 1.4 Libras Esterlinas, 5 Marcos Alemanes y 
405 Yens Japoneses. 


Naturalmente para conseguir este objetivo es necesario una tabla de 
conversión entre las distintas unidades monetarias. 

Además se requiere del programa otra propiedad importante, que es 
que la tabla de unidades monetarias sea totalmente libre, con lo que el 
usuario del programa puede elegir las monedas que más le convengan. 


10.10.2 Escritura del programa 


El programa se divide en tres partes: 


1. Entrada de la tabla de conversiones. 
2. Entrada de las preguntas respecto a las cantidades. 
3. Cálculo y presentación de los resultados. 
10.10.2.1 Tabla de conversiones 

Para realizar esta tabla es necesario definir una unidad monetaria bá- 
sica. El cambio de las demás monedas se introduce respecto a la unidad 
básica. 
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Utilizamos dos conjuntos dimensionados de una dimensión. El primero 
numérico, que sirve para expresar los valores de cambio en función de la 
unidad monetaria básica y el segundo alfabético para almacenar el nombre 
de la moneda. 

Como la tabla es del tamaño elegido por el usuario es necesario pre- 
guntar primero cuántas monedas se van a utilizar en cada ejecución del 
programa. 

Por otra parte, la primera unidad monetaria es la unidad monetaria bá- 
sica. En ella sólo es necesario entrar el nombre ya que el valor de la con- 
versión es 1. 

Finalmente hay que entrar el nombre y el valor del cambio para el resto 
de monedas a considerar. 

Para tomar un ejemplo, utilizamos las siguientes unidades monetarias 
y los valores de conversión siguientes: 


Pesetas 1 

Dólares 156 (USA) 
Libras 223 (Esterlina) 
Marcos 63 (Alemán) 
Yens 0.77 (Japonés) 


En la tabla se han simplificado adrede los nombres para evitar mani- 
pular nombres demasiado complicados. Entre paréntesis se han colocado 
los calificativos necesarios para especificar correctamente la moneda. 

Se considera que el nombre de las monedas se puede expresar con 
10 caracteres. 

La parte del programa que realiza la entrada de esta tabla es el si- 
guiente: 


100 REM Entrada de la Tabla. 

110 INEUT "Cuantas monedas va entrari" in 

120 DIM c(imaibidN atéttn, 10) 

FOO REM Entrada de a moneda base 

210 INFUT "Nombre de la moneda baset”imb(1) 
220 LET c(1) = 1. 

300 REM Entrada del resto de la tabia 

510 FOR i = 2 TO” 
320 INELIT "Nombre de las otras monedas!" :mb(i) 
330 INPIJT "Valor en la moneda baset",c(i) 
340 NEXT i 


Las líneas 110 y 120 nos permiten dimensionar los conjuntos de ma- 
nera adecuada. 

La línea 110 nos pide el valor y la 120 dimensiona el conjunto c que 
será el conjunto numérico que contiene el valor de las monedas. También 
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dimensiona el conjunto m$ que contiene el nombre de las distintas monedas 
con 10 caracteres como máximo de longitud de la cadena. 

Las instrucciones 210 y 220 asignan el nombre de la moneda base y 
el valor de conversión de la moneda base que obligatoriamente es 1. La 
asignación del nombre se hace mediante una instrucción INPUT. 

Las instrucciones 310, 320 y 330 forman un bucle que va pidiendo el 
nombre y el valor de las distintas monedas a considerar. El bucle va desde 
un valor inicial de 2 hasta el valor n. Recuerde que el primer elemento de 
la tabla es el de la moneda base entrado anteriormente. 


10.10.2.2 Mecanismo de pregunta 


La siguiente parte del programa consiste en la pregunta de las con- 
versiones que se desean realizar. 

Esta pregunta consiste en pedir la cantidad en unidades monetarias de 
una moneda determinada. 

Para finalizar el programa correctamente es necesario definir una con- 
dición para finalizar. Esta condición es que la cantidad entrada sea negativa 
o nula. En general, no tiene sentido querer convertir una cantidad de mo- 
neda negativa o nula. 

Una vez entrada la moneda hay que comprobar que la moneda está 
en la tabla que tenemos en memoria. Se localiza en la tabla por nombre. 
Si el resultado es encontrado, se prosigue el programa; en caso contrario, 
se da un mensaje de error y se vuelve a pedir la moneda. 

Hay que recordar que, para buscar en la tabla por nombre, el ZX- 
SPECTRUM requiere que la petición de nombre sea de la misma longitud 
que el definido en la dimensión. Por ello, se rellena con blancos el nombre 
de la moneda que entramos. 

El programa es: 


400 REM Feticion y busqueda 

610 INPUT "Cantidad que desea cambiar: "=g 
420 1F a(=0 THEN 60 TO 39999 

500 INPUT "Moneda due desea Cambiar!" :a$ 
310 17 LEN as ( LEN m$(1) THEN LET afrmas+" " 1: 60 TO 510 
600 REM Busqueda por Nombre 

510 FOR i = 1 TO n 

620 ¡if ab = m$(i) THEN GO TO 700 

630 NEXT id 

640 ECLSIPRINT "No encuentro la moneda" 
6530 60 TO 500 


Las línea 410 pide la cantidad. La línea 420 analiza si la cantidad es 
negativa o nula, en caso afirmativo finaliza el programa. En caso negativo 
continúa el programa. 

La línea 500 pide el nombre de la moneda y la línea 510 alarga este 
nombre hasta la misma longitud de los nombres definidos en la tabla, se 
utiliza el primer elemento para evitar que un cambio en la dimensión nos 
haga modificar también esta instrucción. 

La línea 610 inicia el bucle de búsqueda que se cierra en la línea 630. 
La línea 620 es una pregunta que comprueba si el nombre entrado es igual 
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al elemento de la tabla que está en la posición ¡. En caso afirmativo se envía 
el programa a la línea 700 para realizar el cálculo. 

Si se finaliza el bucle significa que no hay ningún elemento en la tabla 
que coincida con el nombre entrado. 

La línea 640 nos informa del error y la línea 650 nos envía a preguntar 
por un nuevo nombre. 


10.10.2.3 Escritura de los resultados 


Una vez alcanzado este punto del programa, sólo es necesario calcular 
las conversiones y escribirlas en pantalla. 

El cálculo de las conversiones se hace transformando la cantidad entrada 
a unidades monetarias bases. El mecanismo es multiplicar la cantidad en- 
trada q por el valor de cambio del nombre localizado en la tabla que será 
cli). 

Se inicia entonces un bucle para todas las monedas. En cada una de 
ellas se calcula el valor mediante la división de la cantidad expresada en 
unidades monetarias de la moneda base por el valor de cambio de una 
unidad de la moneda base, que está contenida en c(¡) (¡ es la variable de 
control de este bucle de escritura. Observe que podría llamarse también ¡ 
puesto que ya hemos incorporado en la cantidad q el valor de la moneda 
pedido). 

Finalmente, se escribe en la pantalla el valor obtenido y el nombre. 

Cuando se sale de bucle se envía el programa a una nueva pregunta. 

La escritura de esta parte del programa es: 


7600. 0LS 3 LETO=0Uéecti) 
710 FOR y = 1 ton 

PEO PRI OACI 
730 NEXT 1 

740 GQ TO 400 


La línea 700 borra la pantalla y calcula el nuevo valor de q en función 
de las unidades monetarias básicas. Se utiliza para esto el valor de cambio 
c(i), el valor de i viene definido por la variable de control del bucle de bús- 
queda del apartado anterior. Necesariamente para alcanzar la línea 700 hay 
que salir del interior del bucle de búsqueda por nombre. 

La línea 710 inicia un bucle para todas las monedas que se cierra en 
730. 

La línea 720 imprime el valor q en las unidades monetarias correspon- 
dientes a la moneda en la posición ¡ de la tabla y a continuación escribe el 
número. 

Finalmente el programa se envia a la línea 400 para que se realice otra 
pregunta. 

El listado completo del programa se da a continuación: 
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10.10.3 Pruebas 


Para finalizar la práctica realice las pruebas siguientes: 


1. Entre la tabla que se ha mencionado más arriba en la que intervienen 
pesetas, dólares, libras, marcos y yens. Es aconsejable que entre los ele- 
mentos de la tabla con todas las letras minúsculas y en plural, tal como 
hemos escrito en este párrafo. La presentación de los datos finales es más 
correcta en plural y más difícil equivocarse si se hace todo en minúsculas. 


2. Cuando le pida la cantidad, dé 2 de la moneda dólares. La tabla que 
debe obtener es: 


312 pesetas 

2 dólares 
1.3991031 libras 
4.952381 marcos 
405.19481 yens 


3. Introduzca ahora 5 de cantidad y al pedir el nombre entre liras, moneda 
que no está en la tabla. El programa debe darle el error que no ha encon- 
trado la moneda y preguntarle otra moneda. Entre ahora libras. 

El resultado debe ser: 


1115 pesetas 
7.1474359 dólares 
5 libras 

17.698413 marcos 
1448.0519 yens 


4. Guarde el programa en un cassette con el nombre «cambio». 
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11.1 COMO ALMACENAR DATOS 


En el programa utilizado para realizar la lista de notas del capítulo es- 
tándar debemos cambiar la forma de indicar las dimensiones. En el ZX- 
Spectrum, los conjuntos dimensionados de tipo textual necesitan una es- 
pecificación de las dimensiones distinta de la estándar, puesto que en ella 
hay que indicar cuántas letras contiene cada elemento. Además es nece- 
saria para cada conjunto dimensionado una instrucción DIM. 

Por lo tanto, la línea 50 se debe cambiar por 


SO DIM N$(NA, 9) : DIM T(NA)> 


Se pueden poner La segunda dimensión de N$ indica el número de letras de cada ele- 
expresiones textuales para el mento en este caso 9. Se ha escogido este valor pues corresponde al nom- 
mensaje del INPUT bre de alumno más largo. El conjunto numérico no sufre variación. 


Por otra parte, en la entrada de las notas se utiliza primero un PRINT 
(línea 150) y luego un INPUT (línea 160), porque el BASIC estándar no 
permite que en el INPUT se utilice una expresión textual y solamente per- 
mite una cadena de caracteres constante. 

Sin embargo, el ZX-Spectrum permite que en el INPUT se calculen 
expresiones, por lo tanto, es mejor sustituir las líneas 150 y 160 por la única 
150 siguiente: 


150 INFUI "Entre la nota de "+N$(1)+"2 "3101 
160 E BORRAR 


En la instrucción INPUT de la línea 150 se encadenan las cadenas de 
caracteres mediante el operador de concatenación. 
El resto del programa queda idéntico y funciona tal como está escrito. 


11.2 INSTRUCCION DATA 


La palabra DATA se encuentra escrita sobre la tecla D y se accede a 
ella mediante el EXTEND MODE. A continuación de esta instrucción se 
coloca una lista de datos separados por comas. 


Siempre hay que colocar los En la mayoría de variantes del BASIC es opcional la colocación de 
datos textuales entre comillas en los datos textuales excepto en aquellos que contienen la coma. 
comillas En el ZX-Spectrum esto no está permitido. Siempre que debamos colocar 


un texto en un DATA deberemos utilizar las comillas. Por ejemplo: 


DATA "CASA" 
DATA "Fernandez", "Garcia" 
DATA "c/ Virgen de Guadalupe, 23 3-4", "Avda. Luz, 234 Bajos" 
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Una coma que forme parte de un texto no origina confusión ya que 
está englobada entre comillas y se distingue perfectamente de la coma de 
separación entre datos. Observe en el último ejemplo que las comas des- 
pués de Guadalupe y Luz son parte del texto porque están encerradas entre 
comillas. 

Como contrapartida de esta limitación, el ZX-Spectrum permite colocar 
como dato una expresión que evaluará en el momento de leer el dato, el 
modo de leer lo veremos en el apartado siguiente. 

Es decir, son válidos como datos detrás de un DATA expresiones vá- 
lidas en BASIC. Cuando en una expresión aparece un nombre se considera 
que se trata de una variable que está definida. Si no lo está se comete el 
error de variable no definida. 

Las siguientes líneas son muestras de datos en forma de expresión: 


DATA 2x4,3+6, "Juan "+"Fedro” 
DATA ¿ka, Mty, aabt "Fedro" 


en la primera de ellas se utilizan dos expresiones numéricas y una alfa- 
numérica. En la segunda se utilizan las mismas expresiones que en la pri- 
mera, pero se han sustituido ciertas constantes por variables, así el 4 se 
ha sustituido por a, el 6 se ha sustituido por y y «Juan» se ha sustituido por 
a$. Si en el programa no están definidas todas estas variables cuando se 
utilicen estos datos se detecta error. 

La línea siguiente presenta un caso engañoso 


DATA "Juan", "Fedro", Juan, Fedro 


en efecto, los dos primeros datos son textuales y equivalen a las cadenas 
Juan y Pedro respectivamente. Los dos últimos datos también son las ca- 
denas Juan y Pedro pero sin comillas. Ya sabemos que no pueden ser 
datos textuales, es la primera norma que hemos explicado en este apar- 
tado. ¿Qué son entonces? pues bien el ZX-Spectrum las considera varia- 
bles numéricas que cuando vaya a utilizar a estos datos las quiere de- 
finidas. 

Hemos calificado este caso de engañoso porque muchas veces uno 
quiere preparar un DATA con datos textuales y lo hace sin comillas como 
se hace en muchos BASIC. El ZX-Spectrum no protesta hasta el momento 
de la ejecución en donde nos repetirá el error variable no definida. 


11.3 LA INSTRUCCION READ 


La palabra READ se encuentra escrita sobre la tecla A y se accede a 
ella mediante el EXTEND MODE. 

La manera de escribir esta instrucción es idéntica a la del BASIC es- 
tándar. 
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El mecanismo de comportamiento también es muy parecido al del BA- 
SIC estándar. Hay que hacer la salvedad de que es capaz de leer expre- 
siones (como se ha indicado en el apartado anterior) contenidas en las ins- 
trucciones DATA, en este sentido se comporta exactamente igual que una 
instrucción INPUT del ZX-Spectrum con la diferencia de que en lugar de 
leer del teclado lee del propio programa. 

Aunque el ZX-Spectrum ofrece la posibilidad de utilizar expresiones, 
no es recomendable hacerlo para que el programa sea compatible con otros 
BASIC; ciertamente ésta es una propiedad que sólo tiene el ZX-Spectrum. 

Los errores que se producen en esta instrucción son de dos tipos. El 
primero que nos informa de que se intenta leer más allá del último DATA. 
Se trata de 


E Out of Data, 20:1 


y el segundo es la serie de errores de conversión, tales como Sin Sentido 
en BASIC, si queremos leer un número y encontramos un texto o viceversa, 
variable no definidas si utilizamos instrucciones DATA con expresiones, etc. 

En el programa en el que se utilizan datos mezclados, tenga en cuenta 
que el Spectrum no añade el espacio en blanco después dei dato numérico. 
Déle usted, por tanto un espacio antes y después de las comillas. 

En el programa de las notas de los alumnos correspondiente al apar- 
tado de la instrucción READ de la lección estándar son válidas las obser- 
vaciones siguientes: 


1. La línea 50 debe ser 
30 DIM N$(NA,9) : DIM T(NAO> 
2. Las líneas 150 y 160 se deben sustituir por la única 150 siguiente: 


150 INPUT "Entre la nota de "+N$(1)+"2 "4 T(1) 
1 50 <G Pe meo cono eno senos pera conos cuca smns conos sens caos. BORRAR 


11.4 LA INSTRUCCION RESTORE 


La palabra RESTORE se encuentra escrita sobre la tecla S y se accede 
a ella mediante el EXTEND MODE. 

En el ZX-Spectrum se permite realizar «rebobinados parciales», es de- 
cir que, en lugar de empezar otra vez desde la primera línea DATA, se 
continúa a partir de una línea determinada. 

Para efectuar esta operación de rebobinado parcial es necesario co- 
locar detrás de la instrucción RESTORE el número de línea que será el 
inicio. 
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Por ejemplo, 


RESTORE 100. 


indica que se rebobina hasta el primer dato de la primera instrucción DATA 
que está en la línea 100 o siguientes. 

Naturalmente después de la instrucción anterior, una instrucción READ 
lee el primer dato de la primera instrucción DATA que está en la línea 100 
o siguientes. 


— 


11.5 APLICACIONES 


11.5.1 El mes en letras 


En el programa utilizado para transformar la fecha en letras introduci- 
remos algunas variaciones: 


— En primer lugar la línea 30 debe quedar como 


ZO DIM N$(12,10) 


el ZX-Spectrum requiere que las variables textuales dimensionadas lleven 
el número máximo de caracteres que va a contener el texto. El segundo 
número (10) establece que cada elmento de N$ contiene 10 letras. La elec- 
ción de este valor se debe a que corresponde al número de letras de «Sep- 
tiembre» que es el nombre del mes más largo. 


— En segundo lugar es necesario cambiar las funciones LETF$, MID$ y 
RIGHTS. En el ZX-Spectrum escribiremos en su lugar 


110 LET Dé=F$(1 TO <) 
120 LET Me=F$(4 TO 5) 
130 LET A$=F$(7 TO 0) 


— Finalmente, la instrucción END de la línea 220 la cambiaremos por un 
STOP o por un GO TO a un número de línea mayor que los existentes. 
No obstante, las instrucciones DATA no interfieren en la ejecución. El 
BASIC sencillamente las ignora y pasa a la siguiente línea. Por lo tanto, 
la línea 220 puede suprimirse si se desea. 


Las instrucciones DATA actúan de almacén y sólo las detectan las ins- 
trucciones READ y RESTORE por lo demás son como comentarios al pro- 
grama. 
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11.5.2 El día en letras 


En la ampliación del programa que permite la conversión de las cifras 
del día a un texto, realizaremos las siguientes modificaciones: 


— La línea 30 debe cambiarse a 


La causa de esta modificación es la necesidad de especificar la lon- 
gitud máxima de la cadena de caracteres cuando el conjunto dimensionado 
es de variables textuales. 


— La línea 166 se cambia por 


11.5.3 La agenda 
En el programa de la agenda debemos realizar los cambios siguientes: 


— Las dimensiones de la tabla A$ se definen así: 


El valor de 22 corresponde a la longitud del nombre mayor. 


— Los elementos que contengan menos letras se rellenarán en la tabla 
con blancos. Esta propiedad introduce una complicación en la compa- 
ración de la línea 340. 


En el capítulo anterior ya hemos visto que es necesario añadir a la 
entrada tantos blancos como sean necesarios para completar la longitud 
adecuada. Las instrucciones a añadir son: 


se coloca el elemento A$ (1,1) para hacerlo inmune a un retoque en la 
longitud de la instrucción DIM. 


— También es posible que la función INKEY$ nos cause problemas debido 
a la memorización de las teclas. Cambiaremos la línea 400 por 
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— Finalmente, después que usted haya escrito el programa completo de 
la lección estándar observará que cuando escribe, por ejemplo veintiuno 
en su ordenador le saldrá escrito veinti uno. Es decir, que ha dejado 
una serie de espacios. La razón, como ya habrá podido suponer es que 
hemos reservado 10 espacios para la variable PS. 


A continuación le presentamos el programa del capítulo estándar, al 
que hemos añadido las instrucciones correspondientes para que anule es- 
tos espacios en blanco. Son concretamente las líneas 140 a 170. Además, 
como no dispone de números intermedios para incluir las nuevas líneas 
hemos renumerado de la línea 160 en adelante. De todas maneras no in- 
troduzca esta versión del programa en el ordenador hasta que haya escrito 
el correspondiente del capítulo estándar. 

El programa corregido es el siguiente: 
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11.6 FUNCIONES DEFINIDAS POR EL PROGRAMADOR 


Las funciones definidas por el programador se construyen en el ZX- 
Spectrum mediante las palabras reservadas 


DEF FN y FN 


situadas sobre las teclas de los números 1 y 2 y a las que se accede me- 
diante el EXTEND MODE y después pulsando el SYMBOL SHIFT. 

Como se trata de palabras clave del ZX-Spectrum después de FN, ya 
sea en la definición como en la utilización, queda siempre un espacio en 
blanco, en general, no es molestia alguna pues lo pone el sistema auto- 
máticamente. 

En el ZX-Spectrum los nombres de las funciones sólo pueden tener 
una letra de longitud, en este sentido es parecido a los conjuntos dimen- 
sionados. 

También los argumentos que se utilizan en la definición de las funcio- 
nes deben tener una sola letra. Cuando utilizamos las funciones este pro- 
blema no existe pues se admite como argumento cualquier expresión válida 
en BASIC. 

La definición de la función (instrucción DEF) puede estar situada en 
cualquier lugar del programa, incluso al final. El BASIC se encarga de bus- 
car la definición entre todas las líneas cuando la necesita. 

En la utilización de las funciones debe utilizar siempre la palabra re- 
servada FN que está sobre la tecla 2. Si teclea las letras F y luego la N el 
resultado no es llamar a una función. 

Los errores que tiene el ZX-Spectrum relacionados con las funciones 
definidas por el programador son dos: 


a) Función que no se ha definido. 


Si pretendemos utilizar una función de la que no hay instrucción DEF FN 
se obtiene el error 


P FN without DEF 
que significa utilización de función sin definición. 
b) Discrepancia en los parámetros. 


Cuando los argumentos en la utilización de una función no coinciden con 
los de la definición se obtiene el error 


Q Parameter error 
El error se obtiene tanto si hay discrepancia en número como en tipo. 


Por ejemplo, si se requiere uno textual y se llama con uno numérico o vi- 
ceversa. 
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11.7 PRACTICA 1. REALIZACION DE UNA FACTURA 


En el primer capítulo de la Enciclopedia se proponia un modelo de fac- 
tura, y en los capítulos 4 y 5 se desarrollaban programas primitivos para 
construir aquella factura. 

En este capítulo vamos a volver al problema con cambios importantes 
respecto a los programas mencionados. 

La idea más importante que se va a utilizar en el desarrollo de este - 
programa es utilizar códigos para los clientes y para los artículos para que 
la entrada de datos sea lo más ligera posible. 

Esta posibilidad de codificación es posible aquí porque conocemos la 
manera de almacenar datos fijos en el propio programa. En realidad se trata 
de un esquema muy parecido al que se utiliza con los ficheros de datos en 
discos magnéticos. Como no disponemos de estos discos utilizamos la pro- 
pia memoria del ordenador para simularlo mediante las instrucciones DATA. 

La similitud del mecanismo utilizado en esta práctica con el que se 
utiliza con discos magnéticos le dan un valor adicional que conviene que 
Ud. sepa para prestar más atención si cabe. 


11.7.1 Definición del problema 


Le recomendamos que tome el capítulo 1 del primer tomo y busque la 
figura 1 para tenerla próxima durante la realización de la práctica. 

La figura 1 muestra la maqueta de la factura. 

La disposición espacial es muy parecida a la utilizada en los capítulos 
4 y 5 del primer y segundo tomos, respectivamente. 

Hay que recordar que se escribe únicamente la parte de la factura es- 
crita a mano en la figura del capítulo 1. Las partes impresas ya están en 
todos los papeles que utilicemos. Como no disponemos de impresora, uti- 
lizaremos la pantalla, como ya hemos hecho en las anteriores ocasiones. 

El programa debe hacer una remesa de facturas de diversos clientes. 

Se debe disponer de un fichero de clientes que permita acceder al 
cliente mediante un código numérico. 

Se dispondrá en memoria de una lista de precios que permita una en- 
trada de un código de producto y una cantidad. Mediante el código el pro- 
grama debe averiguar la descripción del producto y el precio. 


Columnas => 12345678901234567890123456789012 
(línea de fecha) 


Cabecera (3 líneas 
de dirección) 
Artículo 1 XXXX XXXX XXXXX 
Artículo 2 XXXX XXXX XXXXX 
Artículo 3 XXXX XXXX XXXXX 
Total xxxxx 
Impuesto x  XxXxXx 


XXXXX 
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11.7.2.1 Mecanismos 


La figura 2 muestra el esquema general de funcionamiento del pro- 
grama. 

Como puede observar la primera parte consiste en cargar la lista de 
precios. La colocaremos entera en memoria para tener más facilidad de 
acceso. 

Luego se pide la fecha y el valor del impuesto, son los mismos para 
todas las facturas. 

A continuación se pregunta para qué cliente desea hacerse la factura 
(En el esquema se indica la pregunta con el símbolo ??). 

Si la contestación es un marcador de final, usualmente se utiliza el 
código cero como marcador de final, el programa termina. 

Si la contestación es el marcador de final va a buscar este cliente en 
el fichero de clientes. 

El resultado de esta búsqueda puede ser encontrado y no encontrado. 
En el esquema estos dos posibles resultados se dibujan mediante líneas 
paralelas pues o bien se sigue una o la otra, pero no ambas a la vez. (Tam- 
bién se utiliza el símbolo ?? para indicar este doble resultado). 


INICIO DEL PROGRAMA 
J 


Cargar la lista de precios 


Pedir fecha y valor del impuesto 


J 
*|NICIO BUCLE 
NX Preguntar a qué cliente 


y 


27? Si es el último salir del bucle 


y 


Buscar cliente en el fichero 
Nx ?? 


(No encontrado (Encontrado 


Entrar datos de los artículos 


f= 


Escribir líneas de dirección 


J 


Mensaje de error Escribir la factura 


/ 


*FIN DEL BUCLE 
TERMINACION 
PROGRAMA 
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INICIO DE LA PARTE: Entrar datos de los artículos 
y 


Colocar la tabla de líneas a cero 


*|NICIO BUCLE 
N Preguntar qué artículo 


J 


2? Si es el código de finalización salir del bucle 


p 


Buscar artículo en la lista de precios 
N2? 


(No encontrado (Encontrado 


Entrar la cantidad 


y 


Mensaje de error Memorizar en la tabla de líneas 


*FIN DEL BUCLE 
TERMINACION DE LA PARTE 


Si el resultado es encontrado, el programa ya puede escribir los datos 
del cliente que son las tres líneas de dirección. 

Después debe pedir cuáles son los artículos que hay que facturar y 
qué cantidad, una vez terminada esta entrada de datos, se escribe la factura 
y se va a pedir un nuevo cliente al cual facturar. 

Si el resultado es no encontrado, lo lógico es dar de alta al individuo, 
si no se trata realmente de una equivocación. Esta posibilidad existe en un 
disco magnético, en el fichero que disponemos en forma de DATA no es 
posible dar de alta. Es necesario antes de empezar a hacer facturas cam- 
biar los DATAS con el fin de dar de alta o baja o modificar tanto el fichero 
de clientes como la lista de precios. Por lo tanto, si durante la ejecución de 
las facturas aparece un cliente que no está en el fichero se debe suponer 
que es un error. En este caso, se da un mensaje y se pide otro cliente. 

Antes de seguir con la escritura del programa es necesario detallar un 
poco más cuál es la entrada de datos de los artículos. 

La figura 3 muestra el esquema de esta parte. 

Cuando se entra en esta parte se coloca en primer lugar la tabla de 
líneas a cero; la tabla de líneas consiste en una tabla que memoriza las 
líneas de artículos que debe aparecer en la factura. 

A continuación se entra en un bucle que pide el código de un artículo; 
como en el caso anterior, existe un código, normalmente el cero, que indica 
que se ha finalizado y sirve para salir del bucle. 

Si el código entrado no responde al código de final, entonces el sistema 
consulta la lista de precios para encontrar de qué código se trata. 

El resultado de esta consulta puede ser código encontrado o no en- 
contrado. 

En el caso de código no encontrado el sistema nos da un error y nos 
pide otro código. 
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En el caso de que realmente se encuentre el código, nos pide la can- 
tidad. Memoriza esta línea en la tabla y vuelve a pedirnos un nuevo artículo. 


11.7.2.2 Estructura de datos 


Para finalizar este diseño general es necesario detallar un poco más 
cuál es el significado, en cuanto a contenido, de la lista de precios, del 
fichero de clientes y de la tabla de líneas. 

Empecemos por el fichero de clientes; el contenido es: 


— Código del cliente. Es el elemento que sirve para buscar. 
— Primera línea de la dirección. 
— Segunda línea de la dirección. 


— Tercera línea de la dirección. 


A cada uno de estos elementos se les denomina en el lenguaje infor- 
mático campos y al conjunto de los cuatro campos, registro del cliente. Pero 
sobre esta terminología ya hablaremos más adelante. 

Respecto a la tabla de precios, los campos que precisamos son: 


— Código del artículo. Es el elemento que sirve para buscar. 
— Descripción del artículo. 


— Precio del artículo. 
La tabla de líneas consiste en dos campos: 


— Subíndice de la tabla de la lista de precios. Observe que no es conve- 
niente memorizar el código de artículo, pues cuando buscamos el código 
obtenemos un subíndice de la tabla de códigos de la lista de precios, 
que nos permite decir que el elemento está. Si memorizamos el código 
en el momento de escribir deberemos repetir la búsqueda otra vez con 
la consiguiente pérdida de tiempo y con unas instrucciones más com- 
plicadas. 


— Cantidad que ha solicitado el cliente del artículo. 


Después de esta descripción de los ficheros, reflexionemos qué es- 
tructura de datos nos conviene más. 

En primer lugar, el fichero de clientes lo mantendremos en las instruc- 
ciones DATA para que la simulación del disco magnético sea lo más fiel 
posible. En general, una empresa dispone de un número de clientes tan 
elevado que no es posible mantenerlos todos en memoria. Pero nosotros 
tenemos que mantenerlos en DATA en nuestro programa. Evidentemente 
nos caben en memoria, pero se trata solamente de un ejemplo con un nú- 
mero reducido. 

La lista de precios, en cambio, la mantendremos en tres listas que di- 
mensionaremos a 10; es un ejemplo. Posteriormente ya daremos la di- 
mensión que nos convenga. Por lo tanto, las dimensiones serán: 
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10 DIM c(10) : REM Código de artículo 
ZO DIM a$(10,15)2 REM Descripción del artículo 
30 DIM po) ¿ REM Precio del artículo 


Y 


En la descripción del artículo se han reservado 15 caracteres por ar- 
tículo, que es precisamente la longitud máxima que nos permite la escritura 
en la factura. 

Normalmente las listas de precios caben todas en memoria, excepto 
en empresas en donde el número de artículos es muy elevado, por ejemplo, 
una ferretería. Insistimos que hemos tomado 10 de momento. 

En un caso real la podemos aumentar a valores bastante más altos, 
siempre, claro está, que el ordenador tenga la memoria suficiente. 

Finalmente la tabla de líneas es el siguiente par de listas: 


40 DIM n(10) : REM Subíndice de la lista de precios. 
50 DIM q(10) : REM Cantidad pedida del artículo. 


Observe que también se dimensiona a 10. Evidentemente no se van a 
pedir más artículos que los que hay en la tabla de precios. Sin embargo, lo 
normal es que este número de líneas sea bastante menor que la lista de 
precios. El número de artículos que hay en un pedido es normalmente muy 
inferior al total de la lista de precios. 

Puede parecer que esto es una seria limitación al programa, pero en 
realidad no lo es, pues si no cabe un pedido en una factura se hace más 
de una. 

Finalmente el estudio de este esquema nos muestra el número y trozos 
de programas que deberemos confeccionar. La lista de actividades es la 
siguiente: 


. Cargar la lista de precios. 
. Entrada fecha e impuesto. 
. Fichero de clientes. Gestión completa excepto artículos. 


. Tabla de líneas. 


NN B2pOD —- 


. Escritura de las líneas. 


11.7.3 Escritura del programa 


11.7.3.1 Carga de la lista de precios 


El primer paso consiste en cargar la lista de precios que está colocada 
en DATA y es necesario pasarla a las tablas, ya diseñadas, para poder 
disponer de ellas con un acceso cómodo. 

Como no sabemos cuantos precios tenemos, precisamos de un indi- 
cador de final para decirnos que se han terminado los datos relativos a la 
lista de precios. Se utiliza el código cero para indicar el final. 
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El trozo de programa que realiza la carga es: 


: 110 
-120 ( E 

130 LET isi+los READ: TON 
140 60 TO 120 

150 LET na = i-1 


La instrucción 110 coloca la variable ¡al valor 1, a continuación se leen 
con un READ los primeros elementos de las tablas de código de artículo, 
descripción del artículo y precio. 

En la sentencia 120 se pregunta si el código es el indicador de final 
(se utiliza un valor negativo o cero); en el caso de que no lo sea, sigue por 
la línea 130, en donde, incrementa la variable ¡ y lee otra vez de las ins- 
trucciones DATA. La línea 140 recicla el control de la pregunta de si hemos 
alcanzado el final. 

Cuando la pregunta de que el código es cero o negativo es afirmativa, 
se envía el programa a la línea 150, en donde se calcula el número de 
artículo, que tenemos en la lista de precios. 

Evidentemente, como se ha leído el indicador de final tenemos un ele- 
mento más en la tabla; por esto, se resta uno a la variable ¡ y este valor se 
almacena en la variable na, número de artículos. 

Para completar toda esta parte de programa es necesario disponer de 
los códigos de artículos en las instrucciones DATA. 

Estas instrucciones son: (Para una lista de precios de ejemplo) 


9000 DATA 101, "Fapel",123 

39010 DATA 102, "Lápices", 14 

3020 DATA 108, "Gomas de borrar", 2 

39030 DATA 105, "Tintero de tinta china roja",87 

9040 DATA 000,"",0 : REM Fin de la lista de precios. 


Tome nota de las consideraciones siguientes: 


1. Los códigos aparecen desordenados, es la situación más normal en 
una lista de precios. 


2. En la línea 9030 aparece la descripción del artículo muy larga. Esto 
no es ningún problema, pues el READ al leer la tabla a$, como en el pro- 
grama le hemos fijado una longitud de 15, lo cortará adecuadamente. 
Quiere decir esto que cuando escribamos no será necesario preocuparnos 
por la longitud de las descripciones. 


3. Como observa, la confección de los códigos de los artículos em- 
pieza en el 100. Esta manera es muy utilizada en la codificación de cual- 
quier tipo de artículos. Se evitan los números que tienen ceros a la izquierda 
y así siempre el código tiene un número de cifras concretas. Es decir, en 
este caso, deseamos un código de tres cifras, necesariamente debe haber 
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"menos de 1000 productos, en general este tope es desmesurado. Si no lo 


es, se elige una cifra más. 


Por lo tanto, podemos despreciar los códigos desde el O hasta el 99 
que se pueden escribir con menos de tres cifras. 

Si utilizamos un código de 4 cifras despreciamos los códigos desde el 
O hasta el 999 que se pueden escribir con menos de cuatro cifras. 

Una vez tecleado este trozo de programa puede ejecutarlo con un 
RUN. El programa acaba sin hacer nada por pantalla. Para comprobar que 
funciona correctamente debe escribir las instrucciones inmediatas siguien- 
tes: 


que debe dar cuatro, es el número de artículos que hay en la lista. 
Luego haga 


deben aparecerle los cuatro códigos. 
Luego haga 


deben aparecerle las descripciones de los artículos. Observe que el tinte- 
ro de tinta china parece cortado, pues sólo se han previsto 15 caracteres 
para a$. 

Finalmente haga 


debe salir los cuatro precios. 
Si no obtiene estos resultados revise las instrucciones. 


11.7.3.2 Entrada de la fecha y del impuesto 


El segundo bloque de instrucciones a escribir es más sencillo. Se trata 
de la entrada de la fecha y del impuesto, que serán los mismos valores 
para todas las facturas que realicemos en la misma ejecución del programa. 

El mecanismo es muy simple y se trata de dos instrucciones INPUT 
como se detallan a continuación: 
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200 REM Entrada de la fecha y del impuesto. 
210 INPUT "Fecha: "3+% 

220 INFUT "Impuesto en A 2" ptpe 

230 LET tpe = tpc/106 


La variable que contiene la fecha se denomina f$ y la que contiene el 
valor del impuesto se denomina tpc. La instrucción 230 lo único que hace 
es transformarnos la variable tpc de un significado de tanto por ciento a un 
significado de tanto por uno; este significado suele ser más cómodo para 
realizar los cálculos. 


Puede probar ahora el funcionamiento de estos dos INPUT, ejecutando 
el programa. 


11.7.3.3. Fichero de clientes 


Esta parte del programa debe gestionar los clientes de los cuales que- 
remos hacer la factura y es la traducción de la parte principal del esquema 
de la figura 2. 


Las instrucciones son las siguientes: 


300 REM Bucle para cada uno de los clientes. 

310 INFUT "Código de Clientes "px 

320 PRINT AT 20,1; m 
330 IF x2=0 THEN d6 TO 97999 

400 REM Búsqueda del código de cliente en el fichero. 
410 RESTORE 9100 p 

420 READ nc, 1$,m%,n$ 

430 1F nc = x« AND nc>0 THEN 60 TO 500 

440 1F nc = 0 THEN 60 TO 420 

450 PRINT AT 20, 13"No se encuentra el código "3x 

460 60 TO 300 

500 REM Desarrollo del resto de la factura. 


8000 60 TO 300 


Se inicia esta parte preguntando el código del cliente del que queremos 
hacer la factura y se sitúa en la variable x. 

La línea 320 nos escribe blancos en la línea 20 para colocar los men- 
sajes de error a blanco, como veremos más adelante. 

En la línea 330 se pregunta si el código es negativo o cero. En este 
caso se finaliza el programa de facturación, enviando el control a la última 
línea de programa; en el ZX-Spectrum es equivalente a la instrucción END. 

La línea 410 rebobina las instrucciones DATA hasta la línea 9100 que 
es donde se deben iniciar los datos asociados al fichero de clientes. 

La línea 420 lee los datos del código y tres variables textuales (1$, m$, 
n$) que contienen las tres líneas de dirección. 

En la línea 430 se pregunta si el código coincide con el tecleado y 
además es mayor que cero. Tenga en cuenta que el cero es el marcador 
del final del fichero de clientes y, por lo tanto, si se pide el código cero en 
la variable x, esta instrucción nos encuentra igual el marcador de final y el 
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código pedido. La precaución de preguntar que además el código sea ma- 
yor que cero, impide este tipo de error. 

Si la pregunta se contesta afirmativamente, es decir, el código leído y 
el código pedido coinciden, y además es mayor que cero, quiere decir que 
se ha encontrado el código del cliente y entonces se envía el control del 
programa a la línea 500, que es donde empezará la petición de los artículos. 

En el caso de que la respuesta sea negativa se pasa a la lina 440, que 
pregunta si el código leído en el fichero es nulo. Si es cierto que aún no se 
ha alcanzado el final del fichero se recicla el programa a la línea 420 para 
leer los datos de otro cliente. 

Si la pregunta es falsa sigue en la línea 450. En ella se imprime un 
error (el código de cliente no está en el fichero) y va a preguntar otro código 
de cliente, empezando en la línea 300, pues también hay que rebobinar el 
fichero al inicio del código de cliente para atender la pregunta de un nuevo 
código. 

Finalmente se sitúa la lína 8000, porque cuando finalicemos la reali- 
zación de una factura, enviamos el control del programa a pedir un nuevo 
código de cliente. La numeración de la línea se hace tan grande para estar 
seguros de que todos los bloques, que nos hacen falta para realizar la fac- 
tura, caben en este intervalo de líneas. 

Para complementar este bloque y poderlo probar es necesario colocar 
el fichero de clientes en los DATA oportunos. 

Un fichero que puede servir como ejemplo es el siguiente: 


9100 DATA 781, "La abeja", "c/ Miel 23","08034 BARCELONA" 

9110 DATA 654, "Los abetos", "c/ Darwin 12", "28022 MADRID" 

9120 DATA 100,"El ocaso", "Avda. de la Luz, 34","43012 VALENCIA" 
9130 DATA 235, "Los hoyos", "Céa Bermúdez, 12","28003 MADRID" 
9140 DATA 102,"El americano”, "Ramblas 12",”"08001 BARCELONA" 
39150 DATA O, Ma ROSA 


en este fichero hay cinco clientes, el orden de la información es estricta- 
mente tal como los lee la instrucción READ. 

Observe que la línea 9150 contiene el marcador de final de fichero. 

Puede ahora probar el programa hasta este punto mediante la intro- 
ducción de los distintos códigos de clientes. No olvide probar algún código 
incorrecto para comprobar que el programa lo detecta. 

Es aconsejable también interrumpir el programa con un STOP cuando 
pide el código y comprobar que las variables I$5, m$ y n$ contienen los datos 
del cliente pedido. 


11.7.3.4 Tabla de líneas 


El objetivo de esta parte del programa consiste en memorizar el con- 
junto de artículos que debe contener la factura. 

Como se ha indicado en el esquema de la figura 3, primero se coloca 
la tabla de memorización a cero. 

De hecho no es necesario colocarla estrictamente todo a cero. Como 
se trata de una tabla para almacenar un número variable de líneas, debe- 
remos tener una variable que nos lleve la cuenta exacta de líneas que hay 
que escribir en una factura. A esta variable la denominamos lc. 
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Para poner la tabla de líneas a acero basta con colocar la variable lc 
a cero, pues nos indica que la tabla contiene /c (ahora vale cero) líneas 
válidas. 

Por lo demás, este trozo de programa es muy parecido al del apartado 
anterior pero en lugar de manipular los clientes manipulamos los artículos 

Por otra parte, una diferencia sustancial respecto al trozo anterior, es 
que tenemos la lista de precios en una tabla y, por lo tanto, el acceso es 
más inmediato que en el caso de las instrucciones DATA. 

El programa de este trozo es el siguiente. 


Se inicia el bloque con la instrucción 500 que como ya hemos dicho 
coloca la variable lc a cero; es decir, número de líneas en la tabla igual a 
cero. 

En la línea 510 se pregunta cuál es el código del artículo. Se utiliza 
la misma variable que para el código de cliente pues ya no se necesita, 
recuerde que los datos del cliente están situados en las variables 1$, 
m$ y n$. 

En la línea 520 se imprimen blancos para eliminar los errores. 

La línea 530 pregunta si el código entrado es cero o negativo, este 
código indica que se ha terminado la entrada de los artículos y se puede 
pasar a escribir la factura. Se envía el programa a la línea 1000. 

El bucle que se inicia en la línea 600 y termina en la 620 es el bucle 
de búsqueda del código de artículo en la lista de precios. 

La variable que controla el final del bucle es la variable na que, en la 
primera fase de la escritura del programa, nos cuenta el número de ele- 
mentos que hay en la lista de precios. 

La línea 610 pregunta por la coincidencia de códigos, si esta es efectiva 
se envía el programa a la línea 700 para el procesado de esta línea ya que 
el código del artículo ha sido encontrado. 

Si se termina el bucle y no se ha encontrado el código, el programa 
accede a las líneas 630 y 640 que consisten en informarnos del error y 
reciclar el programa a la entrada de un nuevo código de artículo. 

Si hemos encontrado el código se accede a la línea 700, lo primero 
que se hace en la línea 710 es incrementar en uno el contador lc que nos 
da el número de líneas que hay que imprimir en la factura. 
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A continuación se memoriza en la lista n(/c) el valor de ¡, que es el 
subíndice de la lista de precios, que posteriormente no permite acceder a 
las informaciones de descripción y precio, sin necesidad de volver a realizar 
la búsqueda del código. Ya hemos mencionado antes que es mucho mejor 
almacenar este subíndice que el código, pues se evita otra vez la búsqueda 
cuando imprimimos. 

Finalmente se pide la cantidad de artículo, que se coloca en la lista 
q(Ic) que utilizaremos posteriormente en la impresión de la factura. 

La línea 740 nos recicla el programa a la línea 510 para pedir un nuevo 
código del artículo. 

Es conveniente hacer unas pruebas otra vez del funcionamiento del 
programa. Cuando se han entrado un par de artículos, compruebe en esta 
entrada que no se admiten los códigos incorrectos. 

Una vez le pide otro código de cliente interrumpa el programa con un 
STOP y compruebe con PRINT directos el contenido de las variables. 

Por ejemplo, si entra el código de artículo 108, en primer lugar y luego 
el código de artículo 102 y finalmente el O. Debe obtener los resultados 
siguientes: 

Al PRINT /c debe obtener un 2. 

Al PRINT q(1), q(2) debe obtener las cantidades que ha entrado. Fi- 
nalmente al PRINT n(1), n(2) debe obtener 3 y 2, ya que son el número de 
orden de los artículos en la lista de precios. 

Efectivamente el tercero es el que tiene el código 108 que hemos en- 
trado primero y el segundo es el que tiene el código 102. 

Estudie bien este mecanismo de guardar los subíndices en lugar del 
código. 


11.7.3.5 La escritura de la factura 


En la fase alcanzada solamente es necesario realizar las instrucciones 
para escribir la factura en pantalla. 

El programa es paralelo al desarrollo en la lección 5; de todas maneras 
volvemos a escribir aquí para aprovechar las nuevas instrucciones que co- 
nocemos. 

El programa es el siguiente: 
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La instrucción 1010 limpia la pantalla de la factura que tenemos en el 
caso anterior. 

Las líneas 1020, 1030, 1040, 1050 y 1060 imprimen la fecha y las tres 
líneas de dirección del cliente y una línea de separación (1060). Recuerde 
que cuando hemos buscado en el fichero de clientes las tres líneas de di- 
rección han quedado en las variables 1$, m$, n$. La línea 1200 coloca la 
variable total a cero. Es la variable que nos sirve para ir sumando el valor 
total de la factura. 

La línea 1510 abre un bucle con la instrucción FOR y la variable de 
control ¡. El bucle se cierra en la línea 1640. Este bucle recorre las líneas 
de artículos entradas anteriormente. La variable /c contiene el número de 
artículos entrados. 

Cada vuelta dentro del bucle imprime una línea de la factura que con- 
tiene la descripción del artículo, el precio, la cantidad y el importe total de 
las piezas de este artículo. 

Las líneas 1520 y 1530 calculan por una parte el importe asociado a 
esta línea y que se acumula en la variable importe y se acumula el total en 
la variable total. 

Es necesario observar cómo se calcula el importe de la línea. El importe 
se calcula como el producto de) precio por la cantidad. 

La cantidad no ofrece ningún problema pues está almacenada en la 
tabla de líneas y se accede a ella mediante q(i), es decir, especificando la 
cantidad asociada a la línea que se está escribiendo y que se memoriza en 
el programa en la variable de control del bucle. 

El precio, sin embargo, no está en la tabla de líneas pues en ella sólo 
se ha memorizado el subíndice de la lista de precios que está contenida en 
n(i). Entonces para acceder al precio hay que buscar en la tabla de precios 
en el índice que nos indica n(i). Por esta razón aparece para el cálculo del 
precio p(n(i)). La tabla p contiene los precios. El subíndice está contenido 
en la tabla n, recuerde que después de la búsqueda sólo se almacena el 
índice del producto y no el código en la tabla de líneas. 

La línea 1540 imprime la descripción del producto. La técnica que se 
utiliza para su acceso es la misma explicada en el caso de los precios. La 
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tabla n contiene el subíndice de la lista de precios que corresponde al pro- 
ducto. 

Las líneas restantes se dividen en tres grupos, desde la 1550 hasta la 
1570 constituye el primer grupo; desde la línea 1580 hasta la 1600 el se- 
gundo y desde la 1610 hasta la 1630 el tercero. 

La función de cada grupo es idéntica; escribir una cantidad ajustada a 
la derecha; es decir, rellenada con blancos por la izquierda hasta un número 
determinado de caracteres. 

Consideremos el primer grupo. La primera instrucción transforma una 
cantidad, en este caso el precio, a una cadena de caracteres que se de- 
nomina b$. La técnica para acceder al precio se ha explicado antes. 

En la línea siguiente se alarga b$ hasta la longitud deseada, en este 
caso 4. El mecanismo consiste en preguntar si la longitud es menor que 
cuatro, si la respuesta es afirmativa se sigue por la instrucción THEN que 
añade un blanco a la izquierda de b$ y recicla el programa a la misma línea 
para volver a realizar la misma pregunta. 

Finalmente la línea siguiente imprime la cadena b$ con un punto y 
coma al final para que el cursor no vaya a la línea siguiente. También se 
imprime un carácter blanco de separación. 

El grupo siguiente realiza lo mismo pero para la cantidad pedida y el 
grupo siguiente para el importe de la compra de este artículo. 

En este último grupo se elimina el punto y coma final pues ahora sí 
que se desea que se salte de línea (línea 1630). 

Finalmente el grupo de líneas desde la 1800 hasta la 1920 se ocupan 
de escribir los totales de la factura. 

Se utiliza la misma técnica que la explicada en la escritura de líneas 
para añadir los blancos a la izquierda para que los números queden ajus- 
tados a la izquierda. 

La línea 1810 calcula el valor del impuesto con redondeo para eliminar 
los decimales. La técnica consiste en multiplicar el total por la del tanto por 
uno, tpc, y añadirle 0.5 unidades monetarias, a este valor se le quitan los 
decimales, de tal manera que si el valor del impuesto tiene unos decimales 
inferiores a 0.5 entonces se quitan, en el caso de que sea mayor toma la 
unidad siguiente. 

Las demás instrucciones son para colocar los totales y el impuesto se- 
gún especifica la maqueta de la factura de la figura 1. 


11.7.4 Consideraciones finales 


Aunque no se dé el listado completo del programa, las partes nos han 
permitido construir un programa bastante complejo. 

En estos momentos debe Ud. probarlo muchas veces para ver que 
realmente funciona correctamente. 

Además, puede añadir más clientes y más artículos para ver cómo es 
fácil poner y quitar diversos elementos, ya que los datos fijos están situados 
en instrucciones DATA. Observe que es bastante cómodo el hacer estas 
variaciones. Por otra parte, no olvide que si quiere tener una lista de precios 
de más de 10 artículos debe cambiar las dimensiones en las líneas 10, 20 
y 30 que corresponden a la tabla de la lista de precios. 
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No parece necesario alargar la tabla de líneas ya que es difícil pensar 
en una factura de más de 10 líneas que tampoco nos caben en pantalla. 
En todo caso podemos hacer dos facturas como ya hemos mencionado 
antes. 

Finalmente, volverle a aconsejar que estudie y repase bien esta prác- 
tica, pues contiene muchos elementos de funcionamiento de los ficheros 
que utilizan las grandes máquinas. 


11.8 PRACTICA 2. DIBUJAR UNA FUNCION 


11.8.1 Consideraciones generales 


En esta práctica vamos a aprovechar el estudio de las funciones para 
dibujar cualquier función que se nos ocurra. 

Realizar un dibujo en pantalla es parecido a hacer un dibujo sobre un 
papel cuadriculado normal. Como ya sabe el papel cuadriculado tiene una 
cuadrícula demasiado grande para que el dibujo quede bien. En la pantalla 
ocurre algo parecido. La diferencia mayor entre el papel y la pantalla es que 
en el papel utiliza las intersecciones de las líneas que delimitan la cuadrícula 
para representar los puntos, en cambio, en la pantalla se debe utilizar ne- 
cesariamente el interior de los cuadrados. 

En capítulos posteriores estudiaremos métodos más precisos; sin em- 
bargo, son más complicados y el método que se desarrolla aquí es de gran 
utilidad cuando sólo se quieren comportamientos generales más que va- 
lores muy precisos. 

La cuadrícula de la pantalla contiene 32 x 20 cuadrados que corres- 
ponde a la intersección de 32 columnas y 20 líneas. La figura 4 muestra 
cómo se puede dibujar una línea recta en la pantalla o en el papel cuadri- 
culado. 

El eje vertical del papel se corresponde con las columnas de la pantalla 
(también puede ser al revés, es un convenio que establecemos ahora); en 
lenguaje matemático se denominan ordenadas. 

El eje horizontal del papel se corresponde con las líneas de la pantalla; 
en el lenguaje matemático se denomina abscisas. 

La manera de hacer el dibujo consiste, en primer lugar, en calcular para 
cada división horizontal el significado numérico que tiene; esto corresponde 
a definir la escala, término técnico que designa este proceso de asignación 
de número. 

Como la pantalla, que es el equivalente de nuestro papel, tiene. 20 lí- 
neas, sólo podremos colocar 20 marcas. Nos basta con saber el valor que 
debe asignarse a la primera línea y ei incremento para obtener cuánto vale 
la abscisa en cuadrados siguientes. 

Las marcas que se utilizan en la pantalla suelen ser o bien, la x o bien 
el símbolo +, ambos recuerdan un poco al aspa. 
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Figura 4. Representación — de Una vez obtenido el valor que representa la línea, se calcula, mediante 
pa dp recta en un papel cua- la función, la posición en que debe colocarse el aspa para que esté de 


acuerdo con el valor de la función. 


11.8.2 Escritura del programa 


Para empezar consideremos el ejemplo de la línea recta. En términos 
matemáticos una línea recta se representa mediante la función siguiente: 


simplemente nos devuelve el valor del único argumento que tenemos. 
Para representar esta función podemos utilizar el programa siguiente: 
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La instrucción 100 prepara justamente el valor de x con que se inicia 
el dibujo y el incremento que deseamos realizar en la variable dx. 

A continuación se borra la pantalla y se inicia un bucle FOR en la línea 
120, que se acaba en el NEXT de la línea 150. 

En la línea 130 se imprime el aspa justamente detrás del valor del ta- 
bulador que marca la función. Vea que el argumento de la función TAB es 
precisamente el valor de la función que queremos dibujar. 

En la línea 140 se incrementa el valor de x en la cantidad dx para pre- 
parar el valor de x asignado al siguiente cuadrado. 

Por otra parte, el programa no confunde la x que utilizamos como va- 
riable con la x utilizada como argumento, tal como se ha explicado en el 
apartado dedicado a las funciones en esta lección. 

Ejecute el programa y observe el resultado. Se traza una línea sobre 
toda la pantalla, tal como se ha dibujado en la figura 4. 

La mejora más importante que se puede hacer en el programa es re- 
ciclar el control para que nos pregunte cada vez el valor inicial y el incre- 
mento de la función. De esta manera podremos seleccionar el intervalo del 
dibujo que deseamos. 

Modifiquemos el programa así: 


100 INFUT "Valor inicial:"3x 3 INFUT "Incremento: "idx 
105 1F dx = O THEN GO TO 9999 
200 60 TO 100 


La línea 100 nos pide ahora los valores de x y de dx. La línea 105 nos 
recoge la opción para finalizar, observe que cualquier valor de dx es bueno 
excepto el cero. En este caso no se incrementa para nada la variable dentro 
del bucle, el resultado es una línea vertical más o menos a la izquierda de 
la pantalla según el valor inicial seleccionado. 

La línea 200 nos envía a una nueva pregunta de un valor inicial. 

Ejecutamos ahora el programa con los datos siguientes: 


1. x=0 y dx = 1: El resultado debe ser el mismo que en el caso an- 
terior. 


2. x=5ydx= 1: La línea nos aparece desplazada hacia la derecha. 
El primer valor corresponde a la x = 5 y, por lo tanto, la función en la línea 
inicial vale 5. 


3. x= 30 y dx = —1: Aparece una línea que va en sentido contrario, 
es decir, de izquierda a derecha; esto es debido a que hemos seleccionado 
un valor negativo del incremento. A medida que avanzamos en las líneas, 
el valor de x disminuye. 

Esta prueba nos sugiere que se debe escribir el valor de las abscisas; 
es decir, cuánto vale la x, para tener idea clara de lo que se representa. 


4. x= 20 y dx = 1: Aparece una línea partida en dos trozos. Esto es 
debido a que después de las doce primeras líneas la función vale 32 y la 
función TAB actúa dividiendo el valor por 32 y sacando el resto, es decir, 
lo sitúa en cero. 

Este problema sugiere que se debe acotar a que el valor de la función 
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no supere el valor de 32. En el caso de que lo haga se imprime un valor 
distinto del signo + para indicar que la función sale de márgenes. 


5. x= —5 y dx = 1: Aparece el error 
B Integer out of range, 130:1 


que nos indica que hay un valor incorrecto dentro de la función TAB, es 
negativo, de la línea 130. 


Este problema sugiere una solución parecida al caso anterior, si la fun- 
ción es negativa se debe colocar un símbolo en cero para indicar que la 
función tiene un valor negativo. 

Veamos a continuación cómo incorporar todas estas mejoras en nues- 
tro programa. 

En primer lugar veamos cómo se puede introducir el valor de la variable 
Xx. Lo haremos sólo cada cinco líneas para dar más claridad al dibujo. 

Antes de imprimir el valor de TAB colocaremos una cadena de carac- 
teres que representa el valor de x. 

Las líneas a modificar son las siguientes: 


121 LET a$ = ” 4 y 
122 1F i=1 OR i=6 OR i=11 OR i=1ó6 THEN LET a$=STR$(x) 
123 IF LEN a$ > 4 THEN LET a$ = a$(1 TO 4) a ADA 
124 IF LEN a$ < 4 THEN LET a$ = " "+ as :60 TO 124 
125 PRINT a$; 

130 ERINT TAB(EN 4 00+5)3"+" 


La línea 121 coloca en a$ cuatro blancos. En la línea 122 se pregunta 
si se trata de las líneas de pantalla 1, 6, 11 o 16, en este caso, se calcula 
a$ como la cadena que representa el número. 

La línea 123 corta la cadena a$ a cuatro caracteres si es más larga 
que cuatro caracteres. 

La línea 124 alarga la cadena si es menor que 4 caracteres hasta el 
valor de cuatro añadiendo blancos por la izquierda. 

La línea 125 imprime el valor de a$. 

Finalmente la línea 130 reajusta el valor del interior del TAB pues ahora 
el cero está situado en el sexto cuadrado del eje vertical. Se añaden 5 para 
dejar un espacio en blanco entre el valor de x y un posible valor de cero 
de la función. 

Naturalmente ahora no disponemos de 32 columnas sino sólo de 27. 

Ejecute el programa con los valores de x = 0 y dx = 1 y observe como 
aparecen los valores de la abscisa escrita cada cinco líneas. 

Para solucionar los problemas de fuera de márgenes lo único que hay 
que hacer es calcular la función antes de imprimir y decidir si está el valor 
dentro de los márgenes de la pantalla. Si es así se imprime con la instruc- 
ción 130 y en caso contrario se escribe con una instrucción que imprima 
un símbolo distinto en los extremos de la pantalla. Se elige como símbolo 
el asterisco (+). 

Las modificaciones que hay que hacer son las siguientes: 
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La línea 126 calcula la función y la coloca en la variable y. La línea 
pregunta si la y es mayor que cero. En caso afirmativo envía el programa 
a la línea 129. : 

Si la respuesta es negativa, es decir, la y es menor que cero se imprime 
un blanco y un asterisco para denotar en el gráfico que el valor está por 
debajo de cero. 

En la línea 129 se pregunta si la y es mayor que 26 que es el número 
máximo que podemos aceptar para la función TAB. Si la respuesta es ne- 
gativa continúa el programa por la línea 130 que suma 5 al valor de y, para 
colocar el símbolo + en el lugar adecuado. 

Cuando la respuesta es positiva se envía el programa a la línea 135 
en donde se imprime un asterisco en el extremo derecho de la línea. 

El programa completo queda así: 


Realice ahora la prueba siguiente, dé a x el valor de —5 y a dx el valor 
2. El dibujo de pantalla tiene una primera fase en la que aparecen asteriscos 
en la parte izquierda, denota que la función es negativa. Otra zona a partir 
de 26 aparecen asteriscos en la parte derecha, esto denota que la función 
es mayor que 26. 
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Después de estas modificaciones tenemos ya un programa que nos 
permite dibujar funciones con la seguridad de que se evitan errores de már- 
genes. 

Finalmente pruebe con las funciones que le citamos a continuación y 
los intervalos que le damos. 

1. Raíz Cuadrada: 10 DEF FN f(x) = SQR (x) +6 
a) Valor inicial = 1; Incremento = 1 

b) Valor inicial = 20; Incremento = 5 

c) Valor inicial = O; Incremento = 0,5 


2. Interés Compuesto: 10 DEF FN f(x) = (1+x/100)5 
x define el interés y el número de años se considera fijo a 5 y se supone 
un capital de una unidad monetaria 


a) Valor inicial = 1; Incremento = 3 


b) Valor inicial = 25; Incremento = 0,5 
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Finalización del programa 
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12.1 OBSERVACIONES GENERALES 


El capítulo que inicia es el que contiene más elementos comunes en 
todas las versiones BASIC. En otras palabras, las diferencias entre las dis- 
tintas versiones de BASIC prácticamente no existen. 

De todas maneras, queremos recordarle antes de empezar algunas 
características que propiamente no son de la lección, pero que debe tener 
en cuenta para que cuando haga los programas en el ZX-Spectrum no 
tenga inconvenientes. 

De hecho, le recordamos unas cuantas cosas que se han estudiado 
en capítulos anteriores. 

En primer lugar en muchos programas se finaliza con un END. Ud. no 
dispone de esta instrucción en el ZX-Spectrum, pero puede sustituirla por 
un STOP o bien por un GO TO 9999. 

Verá que la utilización del END en este capítulo es imprescindible, pues 
es necesario dividir el texto del programa en una parte que denominaremos 
programa principal y en otra que llamamos subrutinas. Muchos de los pro- 
gramas que se han hecho en capítulos anteriores finalizaban en la última 
línea. Por lo tanto, la utilización de STOP o el GOTO 9999 era innecesaria. 
En cambio, en este capítulo no ocurre lo mismo. 

En segundo lugar aparece la función LEFT$ en la última modificación 
de la instrucción 530 del programa de alineado de números por la derecha. 

En el caso del ZX-Spectrum debe sustituirse por el operador de frag- 
mentación siguiente: 


330 IF LN THEN LET Aé$="x"+A$(1 TO N-1) 2 RETURN 


que equivale a tomar los N-1 caracteres izquierdos de A$. 
También aparece la función MID$ en la instrucción 


630 LET X$ = MIDS(AS, L-E+1, 1)+X% 


en el apartado correspondiente al acceso subrutina a subrutina. Recuerde 
que en el ZX-Spectrum no existe esta función y, en cambio, existe el ope- 
rador de fragmentación. 

Debe escribir esta instrucción como: 


630 LET X$ = AS(L-k+1 TO Lok+1) + X85 


Finalmente se utiliza también la función INKEY$, que el ZX-Spectrum 
sí posee, pero es más conveniente utilizarla con un PAUSE 0 delante para 
evitar la repetición de la tecla. 

En el programa del apartado listados deben sustituirse las líneas 420 
y 430 por 
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Para cerrar esta parte de observaciones, le indicamos que en el ZX- 
Spectrum el error que da si se encuentra una instrucción RETURN sin tener 
una subrutina pendiente es: 


7 RETURN without GOSUB 0:1 


que significa que hay un RETURN sin el correspondiente GOSUB. 


12.2 UN EDITOR DE TABLA 


Seguramente le sorprende el título de este apartado. La palabra editor 
la conoce pero probablemente no con la acepción que se le quiere clar aquí. 
Le podemos decir que, incluso, esta acepción no estamos seguros de que 
sea correcta en castellano. 

En informática la palabra editor se da a los programas que permiten 
escribir, modificar o borrar información que hay en la memoria del orde- 
nador. 

Cuando nos referimos a memoria nos referimos a una parte de me- 
moria en la que tenemos control, porque pertenece a algún dato del pro- 
grama. 

De hecho, los editores en general son herramientas imprescindibles 
para la entrada de información en los ordenadores. 

Ya conoce el funcionamiento de un editor de líneas: ¿sabe cuál? En el 
ZX-Spectrum, todo lo que puede hacer Ud. con las flechas, o la tecla de 
borrar (delete), o cuando entra una línea de programa, que no es más que 
un editor de las líneas. Recuerde que la tecla que permite modificar una 
línea se llama EDIT (editor). 

El objetivo del resto de este capítulo es construir un editor para unos 
datos que están en una tabla. 

Toda tabla tiene unas filas y unas columnas que deseamos rellenar 
con números. Un proceso posible es ir pidiendo el valor de cada una de las 
filas y columnas en un orden determinado. Este tipo de proceso es pobre 
e incómodo. Cuando se ha entrado un número no es posible retocarlo y 
cuando la tabla es grande la posibilidad de cometer errores aumenta no- 
tablemente. Por otra parte, si la tabla no está bien rellenada, el resultado 
del proceso puede ser erróneo y hay que volver a empezar a entrar datos 
y posiblemente cometer nuevos errores. 

En procesos de entrada de datos largos es necesario buscar la máxima 
flexibilidad para que el usuario se sienta cómodo frente a los errores que 
pueda cometer. 
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Como el objetivo es ambicioso, vamos a abordar la construcción de un 
editor de tabla en cuatro etapas: 


1. Visualización de la tabla. 
2. Movientos de situación. 

3. Entrada de datos. 
4 


. Guardar estos datos en un cassette. 


Cada una de estas partes es objeto de una práctica independiente (o 
casi independiente) de las demás. La potencia que tienen las subrutinas 
para descomponer el problema permiten esta independencia, pues el me- 
canismo básico es añadir al programa anterior las operaciones (son subru- 
tinas) que nos faltan para conseguir el objetivo parcial de la etapa. 

De todas maneras, es necesario definir el problema ahora de una ma- 
nera general para dejar claro el objetivo que deseamos alcanzar. Debido a 
que el programa es largo prepare el cassette y una cinta nueva para guardar 
las diversas versiones y partes del programa. 


12.2.1 Definición del problema 


Se trata de realizar un programa que permita la entrada y la modifi- 
cación de los valores de una tabla de 30 filas y 15 columnas y que cada 
intersección de una fila y una columna tenga 7 caracteres. 

En cada casilla sólo se pueden entrar números enteros positivos, es 
decir, sin ningún decimal ni signo. 

En términos generales se trata de mantener en pantalla el máximo de 
casillas y mediante las flechas poder «pasearse» por cada una de las ca- 
sillas y modificar el resultado si hace falta en cada una de ellas. 

Un pequeño cálculo nos muestra que una tabla de estas características 
no cabe en la pantalla. En efecto, en el ZX-Spectrum tenemos 32 columnas 
y se requieren 15 columnas de 7 caracteres que dan un total de 105 co- 
lumnas. Por otra parte disponemos de 20 filas y la tabla tiene 30. 

El mecanismo de inspección de la tabla se construye como si la pan- 
talla fuera un visor de un tamaño determinado y la tabla un papel más 
grande. El mecanismo de «paseo» consiste en poder mover el visor sobre 
el papel, de tal manera que podemos ir viendo el trozo de tabla que que- 
ramos. 

A medida que inspeccionamos la tabla podemos modificar los valores 
de las intersecciones de las filas y las columnas para colocar o modificar 
los valores actuales. 

Una vez realizado este proceso de edición guardaremos el trabajo rea- 
lizado en un medio magnético (la cinta de cassette) para poder seguir más 
tarde o aprovecharlo para que otros programas realicen cálculos con esta 
tabla. 
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12.3 PRACTICA 1. VISUALIZACION DE LA TABLA 


12.3.1 Consideraciones iniciales 


La tabla de datos es lo primero que necesitamos para poder rellenarla 
con algo. Luego comenzaremos nuestro programa por reservar la memoria 
necesaria para tener la tabla que contiene los datos. 

También agrupamos todas las constantes del programa, antes de rea- 
lizar ninguna acción, para poder variar estos datos con facilidad, modifi- 
cando únicamente esta primera parte del programa. Es decir, partimos del 
supuesto de una tabla de 30 filas y 15 columnas, pero es posible que en 
otra ocasión necesitemos otro número de filas y de columnas. Por lo tanto, 
es mejor dejar estos números como variables del programa, que se asignan 
al iniciarse el programa. 

Por ello, las primeras instrucciones agrupan todas estas constantes 
que a lo largo del diseño y escritura necesitemos. 

Como la práctica es larga le recomendamos que en un papel aparte 
se vaya haciendo una lista de las constantes y variables que utilizamos, 
indicando lo que representan. 

Las primeras líneas son definir precisamente el tamaño de la tabla a 
utilizar. 


10 REM Inicialización de las constantes del programa. 
20 LET tf = 30.3 LET tc= 15 
30 LET ac = 7 


La constante tf indica el número de filas y la constante tc indica el nú- 
mero de columnas. Como la tabla es de caracteres, en el ZX-Spectrum es 
necesario especificar cuántos caracteres debe tener; por lo tanto, se define 
ac como el ancho de caracteres que tiene la tabla. 

Como se precisarán más constantes, dejamos un espacio de líneas 
para ir agrupándolas todas al principio del programa. 

La instrucción siguiente define la tabla que utilizamos para almacenar 
los datos. 


100 REM Dimensionado de las tablas. 
110 DIM t$(tf,tc,ac) 


Para poder iniciar el trabajo rellenamos esta tabla con algún valor que 
permita controlar que estamos en el camino correcto en las pruebas del 
programa. Por ejemplo, se puede rellenar la tabla con una cadena de ca- 
racteres que indique a qué fila y columna pertenece el elemento. Más tarde, 
cuando el programa esté probado con esta tabla, sustituiremos estos va- 
lores por los requeridos para las otras fases. 


300 REM Llenado inicial de la tabla. 
5310 FOR iíi = 1 TO tf 
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- ¿920 FOR. =.1 TÓ te os 
530 LET t$6(1,3) »= STRE(I)+", "FOTRA(Í) 
540 NEXT j 
550 PRINT i, 1 NEXT á 


Las instrucciones consisten en dos bucles: uno que recorre las filas 
(variable de control /) y otro que recorre las columnas (variable de control 
J). En el interior de estos bucles anidados se construye el valor de la tabla 
mediante la concatenación de la cadena de caracteres que representa i, 
una coma y la cadena de caracteres que representa la j. 

En la línea 550, antes del NEXT ¡, se escribe qué línea se rellena, para 
poder controlar el progreso del programa. Este control es necesario, pues 
se tarda bastante en rellenar la tabla si es grande. En nuestro supuesto hay 
que rellenar 450 elementos (30 x 15). 

En este momento ya se puede probar el programa en esta primera 
fase. Escriba el RUN y a la tecla de fin de línea. 

En pantalla aparecen dos columnas: la de la izquierda escribe que se 
han llenado las filas impares y la derecha escribe que se han llenado las 
filas pares. La coma detrás del PRINT de la línea 550 tiene esta misión. 

Una vez finalizado el programa debe comprobar que los elementos de 
t$ contienen los datos que deseamos. Para ello utilice las instrucciones de 
ejecución inmediata. Por ejemplo, escriba 


PRINT t$(6,12) 


en pantalla debe aparecer 6,12. Es decir, tal como se ha llenado la tabla 
la impresión de un elemento nos debe dar los índices de este elemento. 

Haga unas cuantas pruebas de este tipo para diferentes combinacio- 
nes de índices para ver si la tabla se ha llenado según lo que se ha pla- 
nificado. 


12.3.2 Descripción del visor 


El siguiente punto a abordar es la visualización de la tabla en pantalla. 
Realmente la tabla entera no cabe en la pantalla. Por ello utilizamos la pan- 
talla para ver una parte de la tabla de datos. 

Con las características del ZX-Spectrum, que dispone de 32 columnas 
y 20 filas, caben en pantalla 20 filas de cuatro datos de una anchura de 
ocho columnas. Si se han de añadir las cabeceras para tener la indicación 
de las filas y columnas en que estamos, la anchura apropiada para los datos 
es de 7 caracteres tal como hemos definido más arriba. ' 

Con cuatro datos de 7 caracteres cubrimos 28 columnas, las cuatro 
restantes las utilizamos para indicar en qué fila estamos. Esta constante de 
cuatro columnas se debe incluir en la definición de las constantes mencio- 
nada más arriba. 

La figura 1 nos muestra la estructura de pantalla que deseamos. 
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NUMERO DE COLUMNA DE PANTALLA 
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Figura 1 Esquema de visuali- Esta pantalla se denomina visor porque sólo puede visualizar 4 colum- 
zación del visor de pantalla. La nas y 20 filas. Para ver distintas partes de la tabla utilizamos el movimiento 
parte tramada comesponds al dl de esta pantalla sobre la tabla. Para hacerlo se selecciona la fila y columná 
seño de la pantalla. Se muestra inicial d a li í A 
el caso de que el visor esté si- inicial que deseamos visualizar en la pantalla, que corresponde a la casilla 
tuado en la fila 11 y en la co- superior izquierda. 


lumna 4 de la tabla. 

Además, para distinguir claramente lo que es contenido de lo que es 
información de situación se colocan en modo inverso (el fondo negro y las 
letras blancas) los datos informativos (en la figura aparece tramado). 

Es adecuado construir la impresión del visor con una subrutina, pues 
hay que utilizarla muchas veces para poder realizar el «paseo» a lo largo 
de la tabla. 

Los datos que se deben dar a esta subrutina son qué fila y qué columna 
se deben visualizar en la parte superior izquierda de la pantalla. Por ejem- 
plo, en la figura 1 se ha indicado la fila 11 y la columna 4. 

Para simplificar al máximo el proceso de escritura construimos estas 
cabeceras en unas listas ya preparadas para el proceso de impresión. 
Tenga en cuenta que el movimiento del visor debe agilizarse al máximo 
para que la respuesta del programa no sea excesivamente lenta. 

A estas cabeceras las denominamos f$ y cf, indicaciones de filas y 
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columnas respectivamente. Las dimensiones son para f$ la de las filas de 
la tabla y para c$ las de las columnas de la tabla. 

Observe, empero, que en la parte superior izquierda de la pantalla 
queda un hueco que corresponde a la intersección de la cabecera de filas 
y la cabecera de columnas. En la figura se señala con asteriscos. 

Es cómodo colocar una cabecera de fila más con este espacio en 
blanco. De esta manera la impresión de la pantalla no necesita saber el 
ancho de la columna dedicada a la cabecera de filas. 

El número de caracteres de f$ es de cuatro, tal como hemos razonado 
más arriba. El número de caracteres de c$ es de 7. Debe tener exactamente 
el mismo ancho que las columnas de datos. 


12.3.3 Escritura del programa 


La figura 2 muestra el programa para realizar las pruebas de la impre- 
sión del visor en pantalla. No escriba todavía esta parte del programa. Vaya 
siguiendo las explicaciones sobre la figura 2. 

Las líneas 10, 20, 30 y 40 corresponden a la inicialización de las cons- 
tantes. Se han añadido las variables 


tpf que indica el número de filas que tiene el visor. 
ípc que indica el número de columnas que tiene el visor. 


acb ancho de la cabecera de filas. 


Las líneas 100, 110 y 120 son el dimensionado de las tablas. Los nom- 
bres son: 


t$ tabla a editar propiamente dicha. 
f$ lista de la cabecera de filas. 


cf$ lista de cabecera de columnas. 


Observe que el dimensionado se hace a ac caracteres para la tabla y 
la cabecera de columnas; a acb caracteres para la cabecera de filas. 
También la cabecera de filas se ha dimensionado a tf + 1 para incluir 
el elemento intersección de la cabecera de columna con la cabecera de 
filas. 
De la línea 220 hasta la 310 se rellenan las listas de las cabeceras. En 
PENA: E, FIPRAmA PRL. 188 primer lugar, los números nos quedan mejor situados en una tabla si se 
pruebas de visualización del vi- , . sz e , 
sor, que se inicia en la fila q y en ajustan a la derecha. Para realizar esta operación se ha diseñado la rutina 
la columna p. 9900 que ajusta un texto a la derecha. 
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LET ac = 73 LET acb= 4 
REM Dimensionado tablas. 
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DU ESTER, Eco acts DIM CREE, ac) 


DIM F$tté+d, aci 

REM Kkellenado tablas 

REM Cabecera de las filas 
LET a= acb 

FOR io = 1 TO ++ 


LET a$ = STR$(i) : GO SUR 9700 : LET +$(1)=ab 


MEXT 3 
LET ab = "" 2: 60 SUB 97900 
REM Cabecera de columnas 


O tE 
4 STR$CiI) 3 60 SUB 9 
NEXT 1 


REM RKellenado provisional de 


FOR io = 1 TO tf 
FOR jo= 1 TO te 
LET as = STRS(i)+", "+*STRE(j 


LETO té(i,j) = añ 


PRINT 
REM Prueba del funcionamie 
INPUT "Fila ele de 
INFLT "Columna inicial: 

SUE $300 

TO 1000 
REM Escrita de una pantal 


FRINT AT 0,03 "e ps (tf+1I3 Us 


FOR Ll =p TO po + tpac-1 
PRINT ME cgis tt 
NEXT 1 
PEI 
FOR Ll == q 710. 0 tp REM 
RESEÑA e 
FOR ko = p TO q o +tporl 
FRINT téc, ki; 
NEXT de 
FRINT 
xro 1 
ECON 
subrutina de ajuste a l 
LEN taéico a THEN LET as 
LEN tas) Za THEN LET as 


LET 4% (if+1)=as 


300: LET ESCLII 


la tabla 


) 2: 60 SUB 9900 


ED 


la que se inicia en dqup 
aos REM primera linea. 


Lineas sucesivas 


derecha. 
axt(1 TO 


"o "+as TO 9920 
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12.3.3.1 Rutina de ajuste a la derecha 


Esta rutina requiere dos argumentos: un texto (a$) y una longitud para 
añadir blancos por la izquierda (a). 

La línea 9910 corta la cadena de caracteres a$ a a si sobrepasa el 
valor definido. En este tipo de programa esto no tiene utilidad, pues la idea 
es que la subrutina devuelva un texto de una longitud a con caracteres en 
blanco rellenando la parte izquierda si el texto tiene inicialmente una lon- 
gitud menor que a. 

La línea 9920 añade caracteres en blanco a la izquierda de a$ hasta 
alcanzar la longitud especificada por a. 


12.3.3.2 Relleno de las tablas 


La línea 220 coloca el valor de a que se utiliza en la subrutina a la 
longitud del ancho de cabecera de las filas que está en la variable acb. 

Se inicia un bucle en la línea 230 que recorre todas las filas. La línea 
240 asigna a a$ el valor en caracteres de la fila en que se encuentra (va- 
riable /) y se envía a la subrutina de ajuste a la derecha. Una vez retorna 
se coloca en el elemento de lista correspondiente. 

Al finalizar el bucle se ejecuta la línea 260, en donde el valor de a$ se 
rellena con blancos y se asigna al elemento adicional de la cabecera de 
filas, para tener en cuenta la intersección con la cabecera de columnas. 

Las líneas 270 hasta la 310 hacen el mismo trabajo para la cabecera 
de columnas; el único detalle a tener en cuenta es que en la línea 280 se 
fija la longitud del elemento a ac, que es el ancho de columna de datos. 

Las líneas 500 hasta la 580 realizan la misión de colocar en la tabla 
de datos una cadena de caracteres con la fila a que pertenece, una coma 
y la columna a que pertenece. Respecto a la versión anterior se ha añadido 
el proceso de ajustar a la derecha. 


12.3.3.3 Impresión del visor 


De la línea 1000 hasta la 1040 está el bucle para comprobar el funcio- 
namiento. Los datos que se entran son la fila y la columna que inician la 
parte izquierda superior del visor. 

A continuación en la línea 1030 se envía a la subrutina de visualización 
del visor. 

La línea 1040 recicla el proceso. 

La subrutina de visualización del visor se inicia en la línea 9500. 

La línea 9510 sitúa el inicio de la impresión en la parte superior a la 
izquierda de la pantalla, mediante la posición del cursor (función AT). A 
continuación se escribe el elemento f$(tf+ 1), que es justamente el elemento 
que se ha preparado para imprimir la intersección de la cabecera de filas 
con la cabecera de columnas. 

Observe que en esta línea aparece una indicación «: y una indica- 
ción * . Estos caracteres no se encuentran en el ZX-Spectrum; los co- 
locamos para indicarle que se desea esta parte escrita en fondo inverso. 
Es decir, letras blancas sobre fondo negro. 
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El mecanismo para escribir esta indicación es el siguiente: escriba la 
línea tal como se la mostramos, pero sin pulsar el signo que hay entre las 
comillas. Sí debe pulsar en cambio las comillas; es decir, escriba una ca- 
dena vacía. 

A continuación edite esta línea con la tecla EDIT y sitúe el cursor justo 
entre las dos primeras comillas y pulse la tecla INVERSE VIDEO. El resto 
de la línea se coloca en fondo negro y letras blancas. Utilice las teclas del 
cursor para situarse entre las comillas finales y pulse la tecla de TRUE VI- 
DEO, el resto de la línea se coloca en forma normal. Finalice la edición de 
la línea mediante la tecla de fin de línea (ENTER). 

Las líneas 9520, 9530 y 9540 consisten en un bucle para escribir las 
cabeceras de las columnas. La línea 9530 utiliza también las indicaciones 
mencionadas para invertir el fondo y las letras. Utilice el mismo mecanismo 
explicado más arriba. (Ojo en estas líneas y las siguientes en no confundir 
la ele minúscula con el número 1.) 

Observe que como el visor debe iniciarse en la columna p, el bucle de 
cabeceras de columna se inicia en p y se acaba en p + tpc — 1, pues la 
pantalla sólo puede visualizar correctamente tpc columnas. 

El menos 1 se coloca porque si caben 4 columnas y empezamos en 
la 5; la 9 ya no debe visualizarse. En efecto, se visualizan 5, 6, 7 y 8. 

Desde la línea 9600 hasta la línea 9650 se realiza un bucle para escribir 
el resto de filas del visor. Los límites del bucle van desde g hasta g+tpf — 1 
por la misma razón que se ha explicado en las columnas. 

En el interior del bucle hay que escribir una línea cada vez. La línea 
9610 escribe la cabecera de la fila con el fondo invertido se aplica la misma 
técnica mencionada en el caso de la cabecera de columnas. Observe que 
se escribe f$(1), que corresponde a la cabecera de la fila l(ele), que es la 
que se imprime y está contenida en la variable de control del bucle. 

La impresión se acaba en punto y coma, porque aún no se ha acabado 
la línea. 

En la línea 9620 se inicia el bucle para escribir las columnas propia- 
mente dichas. Los límites del bucle van desde p hasta p+tpc—1 por la 
misma razón explicada en la cabecera. 

El interior del bucle consiste en una sencilla instrucción PRINT que 
imprime el elemento de índice / de filas (la variable de control del bucle 
externo) y k de columnas (la variable de control del bucle más interno). 

La instrucción finaliza con un punto y coma para no saltar de línea de 
la pantalla. 

La línea 9640 finaliza el bucle de las columnas y la línea 9660 realiza 
un PRINT para saltar a la línea siguiente. 

Una vez finalizado el bucle que acaba en la línea 9660 se ha impreso 
toda la pantalla. 

La línea 9670 retorna el control al programa principal. 

Ahora ya puede escribir el programa de la figura 2, siguiendo las in- 
dicaciones dadas. 


12.3.4 Prueba del programa 


Ya se puede ejecutar el programa que empieza mostrando cómo va 
inicializando las tablas de los datos. 
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Una vez se ha terminado nos pide la fila inicial y la columna inicial. 

En primer lugar pediremos la fila 1(ENTER) y la columna 1(ENTER). 
En pantalla deben aparecer 20 filas con los índices del 1 al 20 y cuatro 
columnas con el índice del 1 al 4. 

Una vez realizado esto correctamente (si no es así repase la subrutina 
de impresión) damos como dato la fila 5 y la columna 5. 

En pantalla debe aparecer la tabla que abarca desde las filas 5 hasta 
la 24 y las columnas 5 hasta la 8. 

Finalmente, pruebe desde la fila 15 y con la columna 8. La visualización 
se inicia normalmente. Se muestran las columnas 8, 9, 10 y 11, para las 
filas 15 y sucesivas. En el momento de escribir la fila 31, cuya cabecera es 
un blanco (recuerde que hemos utilizado este elemento paa escribir la in- 
tersección de las cabeceras de filas y columnas), no escribe el 31 sino que 
aparece un error que nos indica que hemos sobrepasado el tamaño de la 
tabla. 

Este error es previsible y lógico, pues no hemos colocado ningún me- 
canismo de contro! de si el visor sale o no fuera del papel. Este mecanismo 
no hace falta colocarlo en la subrutina de impresión, pero debe tenerse en 
cuenta cuando realicemos la parte del programa relacionada con el paseo 
del visor sobre la tabla de datos. 

Una vez probado el programa puede grabarlo en el cassette con el 
nombre «p1». 


12.4 PRACTICA 2. MOVIMENTOS DE SITUACION 


12.4.1 El cursor y sus movimientos 


En la práctica anterior hemos definido la pantalla como el visor de una 
tabla mucho mayor. 

El objetivo último es poder acceder a cada uno de los elementos de la 
tabla para poder cambiarlos de valor de acuerdo con unos datos que de- 
bemos memorizar. 

Es necesario, por lo tanto, disponer de un mecanismo que nos indique 
en qué elemento de la tabla se trabaja. A este indicador se le denomina 
cursor. 

En el programa señalamos el cursor mediante la impresión del ele- 
mento en video inverso, es decir, fondo negro y letras blancas. 

Una vez establecido el mecanismo de señalización hay que considerar 
el movimiento del cursor a lo largo y a lo ancho de la tabla. 

Hay cuatro movimientos básicos de este indicador: 


— Arriba : Se sitúa en el elemento que está en la misma columna y 
en una fila menos. 


— Abajo : Se sitúa en el elemento que está en la misma columna y 
en una fila más. 


— Izquierda  : Se sitúa en el elemento que está en la misma fila y en 
una columna menos. 
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— Derecha : Se sitúa en el elemento que está en la misma fila y en 
una columna más. 


En la figura 3 se da un esquema de estos movimientos básicos. 

Aparte de estos movimientos básicos son aconsejables los de colo- 
carse en la primera casilla, es decir, la fila 1 y la columna 1. A esta operación 
la denominaremos inicio de tabla. 

Y colocarse en la última casilla. En nuestro supuesto en la columna 15 
y la fila 30. A esta operación la denominaremos fin de tabla. 

Estos movimientos básicos generan a su vez un movimiento del visor. 
En efecto, cuando estamos en el borde superior y queremos mover el cursor 
hacia arriba es necesario que todo el visor se desplace hacia arriba. Lo 
mismo puede decirse en el caso de estar situados en el borde inferior y 
deseamos mover el cursor hacia abajo. Cuando estamos situados en el 
borde izquierdo y deseamos ir más hacia la izquierda. O cuando estamos 
en el borde derecho y deseamos movernos hacia la derecha. 

En todos estos movimientos es necesario tener en cuenta que, cuando 
estamos en los bordes de la tabla, no se pueden realizar. 

Otra condición que permite ganar tiempo en los movimientos es que 
mientras nos mantengamos en los límites marcados por el visor no es ne- 
cesario imprimir cada vez todo el visor. 


12.4.2 Rutina de visualización del cursor 


Una vez probado y grabado el programa para la impresión del visor 
elimine desde la línea 1000 hasta la 1040, pues son las que se utilizan para 
comprobar el funcionamiento del programa. 

Para llevar el control de dónde está el cursor se deben introducir dos 
variables que son f, para memorizar la fila de la tabla y la c para memorizar 
la columna de la tabla. Estas dos variables nos dan la posición lógica del 
cursor sobre la tabla. 
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También se precisa conocer la posición física del cursor sobre la pan- 
talla. Según como se encuentre situado el visor, la posición de la tabla no 
permite calcular dónde debe situarse el cursor en la pantalla. Se utilizan 
dos variables fp y cp, que memorizan la fila y la columna en la pantalla. 

La primera operación a realizar es colocar el cursor en algún sitio. Se 
fija inicialmente en el extremo superior izquierdo de la pantalla. Por lo tanto, 
las variables fp y cp deben colocarse al valor 1. En la tabla de valores se 
hace la misma suposición y también se coloca en la primera fila y la primera 
columna; por lo tanto se colocan fy ca 1. 

Una vez situado el cursor en estas condiciones hay que mostrar el visor 
desde la primera fila y columna de la tabla. 

En la figura 4 se muestran las modificaciones que hay que hacer en el 
programa anterior. Recuerde que se debe borrar desde la línea 1000 hasta 
la línea 1040. Hágalo y vaya siguiendo estas explicaciones consultando en 
la figura 4. No escriba todavía. 

La operación de iniciar el cursor tanto en la parte física como en la 
lógica y visualizar el visor se realiza en las líneas 1000, 1010 y 1020. 

A continuación se procede a visualizar el cursor en la posición inicial 
y a partir de aquí recibir órdenes desde el teclado para poder realizar los 
movimientos. 


La visualización del cursor consiste en imprimir con el fondo inverso el 
elemento de la tabla que indican las variables f y c, en la posición de la 
pantalla que indican las variables fp y cp. 

Una vez visualizado es necesario esperar que el usuario pulse una 
tecla para indicar qué operación desea realizar con el elemento que está 
en el cursor. Esta espera se realiza mediante la combinación de las ins- 
trucciones PAUSE y INKEYS$. 

Una vez recibida la orden es necesario volver a colocar el elemento en 
forma normal, es decir, con fondo blanco y letras negras; se deja así este 
elemento igual que antes de que el cursor se sitúe sobre él. 

Debido a la complejidad de esta operación se utiliza una subrutina para 
la visualización del cursor. 

La figura 4 muestra esta subrutina desde la línea 9000 hasta la 9040. 

La subrutina se llama desde la instrucción 1510, que es la primera ins- 
trucción del bucle que recoge las órdenes para realizar el movimiento. Este 
bucle se inicia en la línea 1500 como indica el comentario. 

Antes de seguir con la estructura de las órdenes del programa estu- 
diemos la subrutina de posicionamiento del cursor. 

La subrutina se inicia en la línea 9000, como ya se ha dicho, con un 
comentario para indicar que se trata de una subrutina y qué función realiza. 

La línea 9010 es una instrucción PRINT que se inicia con una llamada 
a la función AT para situar el cursor en el lugar que le corresponde. 

En primer lugar hay que colocarlo en la fila de la pantalla fp. Debe tener 
en cuenta que en el ZX-Spectrum a la primera línea de pantalla se le asigna 
el valor O; ésta contiene la cabecera de columna. Luego el valor de la va- 
riable fp nos indica la fila física que requiere la función AT. 

El cálculo de la columna es más complicado. De hecho los datos em- 
piezan en la columna siguiente al valor indicado por abc, que es el ancho 
de la cabecera de filas. Por otra parte cada columna tiene un ancho de 
caracteres ac. Si estamos en la primera columna física sólo nos hace falta 
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1000 REM Impresión pentalla inicial 
1010 LET $=1 2 LET € = 11 LET fp=1 1 LET cp=l 
LET q=+ +2 LETps=es 60 Sue 9500 


SER Inicio del bucle de ordenes 
60 SUE $000 2 REM Control del cursor 
ab o= "4" OR a$ ="E" THEN GO TO $099 
a= 8 THEN SUE 8000 60 TO 1500 
$ — THEN SUBE 8100 60 TO 1300 
11 THEN 60 SUE 8200 60 TG 1300 
THEN GO SUE 82300 GO TO 1500 
60 TO 1500 


1560 
1990 


et REM Izguierda 
1 c= 1 THEN RETURN 
EE A o ES pl 
1 cp 2 0 THEN RETURN 
sd ge t=tptl 2 LETOp=c : 60:SUB 9300 
8050 cp =cp + 1 
3060 RETA 
8100 REM Derecha 
3 IE c= te THEN RETURN 
LEVE SE FL E ETICO Ep El 
IE cp ¿= tp THEN RETURN 
LED que efprerlo os LET p=artparlo os 60 SUE 9300 
LET Ep 
RETURN 
REM Arriba 
TE = 1 THEN RETURN 
LET tt Ll LET-$9 =>fFp. +1 
¿poo THEN RETURN 
V taLET p= cecp+tli:60 SUE 9500 


tf THEN RETURN 

Fo o+L OLE To op =p +l 

tf. THEN RETURN 

t=tpt+il ¿LET p= c-cp+1160- SUR 9300 


FOLIO REM Subrutina para el control del cursor 
“nio an A fps icprlikactachg"*"pté O, cip Ua o 
k E  LET as INEEYS*S 3 LETS a = CODE at 
tp, Ltopelókactaciité6(+4,c)d3 


Figura 4 Adiciones y modifica- : ] 
ciones al programa para realizar | «34, 30 rr RETUERN 
el movimiento del cursor. 
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sumar acb; si estamos en la segunda columna sólo hay que sumar ac y 
acb; en la tercera hay que sumar ac más dos veces acb y en la cuarta acb 
más tres veces ac. 

La fórmula que realiza este posicionamiento en la columna es 


acb+(cp—1)*ac, 


en el supuesto que estamos utilizando, en donde, acb es 4 y ac es 7, la 
tabla siguiente muestra el comportamiento para los valores de las columnas 


físicas cp que va desde 1 a 4. 
(cp-1)*ac | (cp—-1)*ac+acb 


cp 
0 0 4 
1 7 11 
2 14 18 
3 21 25 


Una vez realizada la situación con la función AT, se introduce un texto 
vacío que sirve para colocar en la pantalla en video inverso (las indicaciones 
"(uy "se han explicado en la práctica anterior, aquí significan lo 
mismo), se coloca a continuación el elemento de la tabla señalado por las 
variables f y c y se vuelve la escritura a situación normal, es decir, fondo 
blanco y letras negras. 

La línea 9020 recoge la tecla pulsada por el usuario. En primer lugar 
la instrucción PAUSE O para que se detenga el programa hasta que no se 
pulse una tecla. 

A continuación se sitúa en a$ la tecla pulsada mediante la función IN- 
KEY$. Finalmente se calcula el valor de a sacando el número en código 
ASCII de la tecla pulsada. Este último caso es necesario para poder analizar 
las teclas que no son letras o símbolos, tales como las flechas de movi- 
miento o la tecla de fin de línea. 

La instrucción 9030 coloca el elemento que está como cursor en su 
forma normal de visualización. Se utiliza la función AT de la misma forma 
que en la instrucción 9010 comentada más arriba y se imprime el valor del 
elemento de la tabla correspondiente a la fila f y la columna c. 

La línea 9040 devuelve el control al programa principal. 

Escriba ahora el programa de la figura 4. 

Antes de seguir adelante se prueba esta subrutina del modo siguiente: 
Primero, se coloca en la línea 1520 una instrucción STOP. 

Se ejecuta el programa y el cursor se sitúa en el extremo superior iz- 
quierdo de la pantalla indicando el elemento de fila y columna 1. 

A continuación toque una tecla, el cursor desaparece y le aparece el 
mensaje 


STOP statement, 1520:1 


y la pantalla queda sin cursor. 
Realice ahora la siguiente instrucción en modo inmediato 


LET fp = 20 : LET cp = 4 : 60 SUBE 9000 
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el cursor se debe situar ahora en el extremo inferior de la pantalla, pero 
indicando en su interior el elemento lógico correspondiente a la primera fila 
y columna (1,1). 

Toque una tecla para finalizar. 

Ejecute las instrucciones siguientes y le debe llevar a los lugares in- 
dicados. 


LET fp = 1: 60 SUB 9000 


lleva el cursor al extremo superior derecho, no se da cp pues no ha variado 
respecto a la prueba anterior. 


LET fp=20 2 LET cp=l1 o: 60 SUE 9000 
lleva el cursor al extremo inferior izquierdo. 


LET+p.= 10.3 :LÉT. cpu 211 60.S0UB ROJO 


lleva el cursor a la fila 10 y la columna 2. 

En todos los casos el elemento que se ha visualizado es el correspon- 
diente a la primera fila y columna, pues no se han modificado las variables 
fy c. 

Si no se produce este comportamiento repase las instrucciones aña- 
didas. 


12.4.3 El bucle de órdenes 


En primer lugar borre la instrucción 1520 que contiene un STOP para 
realizar las pruebas de situación del cursor y cópiela otra vez tal como está 
en la figura 4. 

Esta fase consiste en analizar la tecla pulsada por el usuario para em- 
prender la acción que sea necesaria. 

En el caso de este programa las operaciones que deseamos realizar 
de momento son las operaciones fundamentales de movimiento del cursor. 
Es decir, se precisa detectar las cuatro órdenes de cursor arriba, abajo, 
derecha e izquierda. 

Siempre hay que tener en cuenta la orden de finalizar que debe pla- 
nificarse en cualquier programa. 

La tabla que se da a continuación define la asociación de teclas a una 
acción determinada. 


foF Finalizar el programa. 
Flecha arriba Mover el cursor hacia arriba. 
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Flecha abajo Mover el cursor hacia abajo. 
Flecha izquierda Mover el cursor hacia la izquierda. 
Flecha derecha Mover el cursor hacia la derecha. 


Las líneas 1520 hasta la 1590 de la figura 4 sé destinan a distribuir el 
control a las operaciones según la orden recibida. 

La línea 1520 analiza si la tecla pulsada es la f mayúscula o minúscula. 
En caso afirmativo se finaliza el programa. 

La línea 1530 analiza si la tecla pulsada es la flecha hacia la izquierda. 
Observe que se pregunta si el código ASCII de la tecla es el 8 que corres- 
ponde al de la flecha a la izquierda. 

Este número se puede saber mediante la tarjeta del teclado, que está 
incluida en el primer volumen de esta Enciclopedia, o bien, en el capítulo 7 
se han estudiado programas sencillos que permiten averiguar los códigos 
de estas teclas. 

Si la respuesta es afirmativa se envía el control a la subrutina 8000 que 
se encarga de hacer los cálculos y las acciones oportunas. Cuando se re- 
torna de la subrutina se envía a la línea 1500 para iniciar otra vez el bucle. 

Las líneas 1540, 1550 y 1560 hacen una función muy similar, sólo que 
se envía el control a una subrutina distinta cada vez según la función a 
realizar. 

La línea 1990 se coloca para recoger una tecla que no tiene ningún 
significado como acción en el entorno de este programa, por ejemplo si se 
pulsa una Q. 

Esta línea utiliza la instrucción BEEP, que aún no se ha estudiado. La 
función de esta instrucción es producir un sonido para indicar que se ha 
pulsado una tecla que no se entiende. No se preocupe por el significado 
de los números, cópiela y más adelante conocerá el significado exacto. 

Una vez hemos advertido mediante el sonido que no se entiende la 
orden, reciclamos el proceso a la línea 1500. 

Se preguntará cómo es que se ha utilizado para finalizar el bucle el 
número 1990. La razón es que dejamos mucho espacio entre la última or- 
den analizada y la advertencia de error, pues a medida que el programa se 
completa con todas las funciones hay que añadir más órdenes. 

Esto debe ser una política general de estos bucles de órdenes, que 
son sumamente frecuentes en todos los programas un poco complejos. 

La estructura de esta parte es muy importante, pues es la manera como 
los programas recogen órdenes del teclado y bifurcan a las subrutinas que 
realizan la función deseada. 

En este ejemplo, en concreto, el bucle de órdenes consta de las partes 
siguientes: 


— Enviar a la rutina de situación de cursor para establecer la interacción 
con el usuario. 


— Analizar las teclas utilizadas para emprender la acción oportuna. En 
nuestro caso tenemos cinco órdenes: finalizar, cursor arriba, cursor 
abajo, cursor a la izquierda y cursor a la derecha. Después de realizar 
la acción se recicla a la petición de una nueva orden. 
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— Producir un sonido para indicar error, o mejor, ignorancia de la orden y 
envío a la petición de una nueva orden. 


' 


12.4.4 Cálculo del movimiento del cursor 


La última tarea que se debe emprender es realizar el cálculo del mo- 
vimiento del cursor. 

Nos vamos a centrar en primer lugar en el movimiento hacia la iz- 
quierda. Los demás tienen razonamientos muy similares. Le advertimos que 
ponga mucha atención para distinguir cuándo hablamos de las filas o co- 
lumnas de la tabla y cuándo hablamos de las filas o columnas de la pantalla. 

Se parte de que estamos situados en lafila fde la tabla y en la columna 
c de la tabla. Por otra parte, el cursor está situado en la fila fp de la pantalla 
y en el columna cp en la pantalla. 

Según el esquema de la figura 3 ir hacia la izquierda significa dejar las 
variables f y fp sin tocar, pues nos mantenemos en la misma fila. En cambio, 
hay que disminuir en 1 las variables c y cp, que indican la columna de la 
tabla y de la pantalla respectivamente. 

Esta primera idea debe modificarse un poco, pues hay que tener en 
cuenta, insistimos, si estamos en los bordes de la tabla o de la pantalla. 

El razonamiento es el siguiente: 


— Si estamos en el borde izquierdo de la tabla no podemos emprender 
ningún tipo de acción. Es imposible ir más a la izquierda pues no hay 
datos. 


— En caso contrario disminuimos en uno los valores de c y cp. 


— Si al disminujr cp no hemos salido del borde de la pantalla se da por 
finalizada la acción. : 


— En caso contrario, nos hemos salido de los bordes de la pantalla; es 
preciso reimprimir toda la pantalla, ya que se debe correr el visor hacia 
la izquierda. 


La conversión de este razonamiento a lenguaje BASIC está hecha en 
las líneas 8000 hasta 8060 de la figura 4. 

La línea 8010 pregunta si estamos en el borde izquierdo de la tabla, 
es decir, si c es igual a 1. Si la respuesta es afirmativa se procede al retorno 
al programa principal. 

En caso contrario se continúa en la línea 8020. En ella se disminuyen 
en 1 el valor de c, columna de la tabla, y cp, columna de la pantalla. 

En la línea 8030 se pregunta si cp es mayor que cero es equivalente 
a decir si vale 1 o más. En este caso, nos hemos mantenido en el interior 
del visor y no hay que hacer ninguna acción más. 

En caso contrario, es decir, que cp valga cero, es necesario correr el 
visor hacia la izquierda. Para ello se calculan las variables q y p, que sirven 
como argumentos para la subrutina de impresión del visor. 

El cálculo de p es fácil, pues sabemos que c es la columna que debe 
iniciar la parte izquierda del visor. 

El cálculo de la fila es un poco más complicado, ya que debe enviar a 
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Figura 5 Situación del visor so- 
bre la tabla de datos con el cur- 
sor situado en la columna 4 y en 
la fila 15 de la tabla. 
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Figura 6 Retroceso del cursor 
una columna hacia la izquierda. 
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la subrutina la fila que está en primer lugar en la pantalla. El cálculo es, 
como estoy en f de la tabla y fp en la pantalla, la primera fila de la pantalla 
es la fila f- fp+1 de la tabla. 

La línea 8040 calcula estos valores y envía a imprimir la pantalla. 

Cuando se retorna, se incrementa el valor de cp para corregir la dis- 
minución que se ha producido en la línea 8020. En otras palabras, si es- 
tamos en la columna 1 de la pantalla, al retroceder el visor hacia la i¡z- 
quierda, el cursor se queda en la columna izquierda. 

Para acabar de comprender vamos a representar gráficamente el caso 
de que tuviéramos situado el cursor en la columna 4 y en la fila 15 de la 
tabla y en la columna 1 y en la fila 5 del visor que nos representa la pantalla. 
Gráficamente la situación sería la que puede ver en la figura 5. En ella 
puede observar la tabla completa con sus 15 columnas y con sus 30 filas. 
Sobre ella hemos colocado la pantalla que nos hace de visor y que nos 
permite inspeccionar la parte correspondiente de la tabla. El visor está cons- 
tituido por la parte de tramado claro, y el tramado oscuro pertenece a lo 
que sería el diseño de la pantalla. Si observa ahora detenidamente la figura 
5 puede ver claramente el supuesto de que partíamos. Es decir, que el 
cursor se encuentra en la columna 4 y en la fila 15 de la tabla y en la primera 
columna (la situada más a la izquierda) y en la fila cinco de la pantalla. 

Supongamos ahora que deseamos inspeccionar lo que hay en la fila 
15 y en la columna 3 de la tabla. Para ello, basta que el cursor se corra 
una columna hacia la izquierda en el visor. Sin embargo, esto no es posible, 
puesto que el cursor está en la columna 1 del visor y correrlo hacia la ¡z- 
quierda significaría pasarlo a la columna cero, que no existe. Por tanto, lo 
que debemos hacer es correr todo el visor hacia la izquierda una columna. 
Con esto, que lo hubiera sido la columna cero del visor, será nuevamente 
la columna 1, pero situada sobre la columna 3 de la tabla. Es lo que puede 
ver en la figura 6. Observe que el visor (ttamado claro) comienza en la 
columna 3 y en la fila 15—5+1 de la tabla; es decir, en la fila 11. 

Una vez comprendido este movimiento es fácil comprender los demás. 
De la línea 8100 hasta la 8360 están las instrucciones BASIC del resto de 
movimientos. 

Veamos el movimiento hacia la derecha. En este caso, estar al borde 
de la tabla significa que c es igual a tc, pregunta que se realiza en la línea 
8110. 

A continuación se procede a aumentar en uno la columna de la tabla 
y de la pantalla. El movimiento es inverso al anterior. Antes se restaba, 
ahora se suma. 

Se pregunta si la columna de pantalla es menor o igual a tpc, que es 
el número de columnas máxima que acepta la pantalla. Si la respuesta es 
afirmativa se acaba la operación. 

En caso contrario, hay que mover el visor hacia la derecha. El cálculo 
de la fila de la tabla con que se inicia la pantalla es el mismo que en el caso 
anterior del movimiento hacia la izquierda. Ha cambiado el caso de la co- 
lumna, sabemos que como hay que correr el visor, la columna c debe apa- 
recer en el borde derecho de la pantalla. Si la pantalla tiene tpc columnas, 
la que está en el borde izquierdo es c—tpc+1. 

Finalmente se reajusta el valor de la columna de pantalla al borde ¡z- 
quierdo. 


ZX — SPECTRUM 


BASIC 
Figura 5 


a 
a 
E E. = Es 


YA 
| 
Ll 
Ll 
] 
] 
] 
] 


a 
| 
'l 
HA] 
1] 
1] 
1] 
$“ 


N* DE COLUMNAS DE PANTALLA 


SES 


o A dB > e 


Figura 6 


ZX — SPECTRUM 


284 


BASIC 


La subrutina de realizar la operación de subir hacia arriba tiene un pa- 
recido muy notable con la de ir hacia la izquierda. En ésta se hace sobre 
columnas; en la de arriba se hace sobre filas. 

Esta misma similitud se observa entre la rutina de ir hacia la derecha 
y la rutina de ir hacia abajo, sólo que se intercambian los papeles de filas 
y columnas. 


12.4.5 Las operaciones de inicio y final de tabla 


Una vez tecleado todo el programa, se ejecuta. Las flechas deben pro- 
procionarnos el movimiento del cursor de acuerdo con nuestros deseos. 

Debemos hacer un text exhaustivo de movimientos y observar que po- 
demos subir y bajar no sólo el cursor, sino también que el visor se mueve 
adecuadamente o no cuando está en los bordes de la pantalla y tabla res- 
pectivamente. 

Si el funcionamiento no es correcto compruebe sobre todo las rutinas 
del movimiento del cursor. Es fácil cometer errores de copia debido a la 
importancia que tiene cada uno de los símbolos. La sencillez aparente no 
significa que sea fácil. 

No olvide de introducir alguna orden incorrecta para oír el sonido de 
error ni de acabar con la tecla f tal como está planificado. El sonido también 
lo oirá si se empeña en mover el cursor cuando se está reescribiendo la 
pantalla. 

De hecho nos habíamos propuesto dos operaciones más que es si- 
tuarse al inicio de la tabla y al final de la tabla. 

Aparte de las operaciones en sí mismas, es importante que se de 
cuenta de lo relativamente fácil que es añadir estas nuevas operaciones 
sobre el programa que tenemos hecho. 

En primer lugar hay que definir qué teclas nos proporcionan la acción. 
Se elige la p (de primero) para ir al principio de la tabla. Se elige la u (de 
último) para ir al final de la tabla. 

Luego hay que añadir en el bucle de órdenes la bifurcación adecuada 
para tratar estos dos casos. Las instrucciones son las siguientes: 


13570 IF af="p" OR a$="F" THEN GO SUB 8400 
1380 1F as$="u" OR a$="L"" THEN 60 SUE 8500 


60. 10.:13900 
GU FE15800 


Observe qué interesante ha sido colocar el 1990 como número de línea 
en el diseño del bucle de órdenes. 

También observe que en estos casos es mejor trabajar con a$ que con 
el código ASCII; la estructura del programa nos lo permite. Se aceptan las 
letras tanto en mayúsculas como en minúsculas. 

Hay que diseñar ahora las dos operaciones. Estas operaciones son 
sencillas, ya que colocarse a inicio quiere decir que f, c, fp y cp deben co- 
locarse a 1. Por otra parte, para evitar complicaciones imprimiremos de 
nuevo el visor. 

Las instrucciones son las siguientes: 
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3400 REM Inicio de la tabla 

410 LET f=1 3 LET culos LET fp=1 2 LET co=1 
8420 LET q=é 2 LET p=c s 60 SUE 9500 

8430 RETURN 


Compare estas instrucciones con las de números 1000 hasta la 1020 
y vea que son idénticas. De hecho se inicia el programa llevando la tabla 
al inicio. Por eso, se pueden sustituir las instrucciones 1010 y 1020 por una 
llamada a 8400. 

La operación de llevar el cursor al final de la tabla es muy semejante. 
Se colocan f, c, fp y cp a sus valores máximos, es decir, tf, tp, tpf y tpc. 
Además hay que imprimir el visor. La única diferencia es el cálculo de dónde 
debe empezar el visor. 

El cursor se sitúa en el extremo inferior derecho de la pantalla y te- 
nemos que calcular qué fila y columna de la tabla corresponde al extremo 
superior izquierdo. Basta restar a la columna y fila de la tabla el valor de la 
columna y fila física añadiendo 1. 

Las instrucciones son: 


8500 REM Fin de tabla. 

8310 LET £ tf 1 LETc= tcs: LET fp. = tpf 2: LET cp = tpc 
8s20o LET q t-fp+1 02 LET p = c-cpt+tic: 60: SUB 9500 

83:30 RETURN 


Después de añadidas estas instrucciones compruebe el funciona- 
miento del programa con estas nuevas operaciones. 

Es el momento además de guardar el programa en cassette con el 
nombre «p2». 


12.5 PRACTICA 3. ENTRADA DE DATOS 


Con la práctica anterior hemos conseguido poder desplazarnos por la 
tabla con gran comodidad mediante la utilización de los conceptos de cursor 
y visor. 

El objetivo ahora es modificar el contenido de la tabla. 

La tabla tiene los elementos con un contenido provisional para poder 
observar con detalle los movimientos del visor. 

Este objetivo modifica dos aspectos del programa: 


— En primer lugar es necesario eliminar la parte de relleno provisional, es 
decir, las líneas 500 y sucesivas hasta la 580. Con estas modificaciones 
la tabla queda llena de blancos o de cadenas vacías. Este aspecto es 
muy fácil de conseguir porque el relleno de la tabla se hace por motivos 
de prueba del programa. 


— En segundo lugar hay que añadir una nueva operación para indicar al 
sistema que se quieren entrar datos. Hay que modificar el bucle de ór- 
denes y construir una subrutina que haga efectivamente la entrada. 
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Para abordar el segundo aspecto, en primer lugar definiremos la tecla 
que nos da acceso a la operación de entrada y modificación de una casilla. 
Se elige la tecla EDIT, que tiene la misma función que en un programa: 
variar o modificar el contenido de un elemento de la tabla. Por tanto, cuando 
tengamos que entrar datos, después de coloca el cursor en el lugar que 
deseemos, debemos pulsar la tecla EDIT. 

Se introduce entonces en el bucle de órdenes con la instrucción si- 
guiente: 


16400 1F a = 7 THEN GO SUE 7000 : GO TO 1500 


Observe que se ha numerado con 1600 para dejar espacio y tener una 
separación clara entre un tipo de operaciones y otros. 

Esta operación genera la necesidad de construir la subrutina 7000, que 
es la entrada de datos propiamente dicha. 

Esta subrutina puede ser muy simple. En una primera aproximación 
nos basta con un INPUT. 

Las instrucciones son las siguientes: 


7000 REM Entrada de datos 
7010 INFUT t$(4,c) 
7OZO RETURN 


Este mecanismo tiene el inconveniente de que hay que entrar de nuevo 
el contenido de la celda ya que no es posible modificar el ya existente como 
ocurre con la tecla EDIT en los programas. 

La resolución de este problema no es sencilla, de hecho hay que iniciar 
el diseño de un editor de líneas con una complicación parecida al de la tabla, 
ciertamente algo menor. De momento dejaremos esta posibilidad para otra 
ocasión. 

Una solución intermedia es colocar el valor de la celda al lado del valor 
a entrar de donde se modifica la instrucción INPUT del modo siguiente: 


7010 INPUT "Valor "+t$(f,c)+ " ar "its0f,c) 


de esta manera el valor que está en este momento aparece junto al INPUT, 
lo que da más facilidad para el proceso de entrar. 

Un aspecto que hemos descuidado es que en la tabla deben aparecer 
las cadenas ajustadas a la derecha, por lo tanto después de entrar el valor 
es necesario utilizar la subrutina de ajustar a la derecha. 

Las instrucciones son: 


7000 REM Entrada de datos 
7010 INFUT "Valor "+t$(tf,c)+ " ai "zas 
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7020 GO SUB 9900 1 LET ts(f,c) = as 
7030 RETURN Es A 


Sin embargo, esta estructura nos permite introducir cualquier cadena 
de caracteres en el interior de la tabla. Ejecute el programa y pruebe de 
entrar cualquier texto. 

Esta entrada no cumple especificaciones, ya que nos han dicho que la 
tabla debe ser de números enteros y positivos. 

Hay que incluir en la subrutina esta comprobación. Este requisito es 
equivalente a que la cadena sólo contenga números. 

Esta condición es fácil de colocar, pero el tener que comprobar nos 
introduce una complicación adicional, que es que no se puede hacer el RE- 
TURN si la entrada no es correcta. Por otra parte, debemos diseñar algún 
mecanismo para poder salir y dejar las cosas como estaban, si en algún 
momento por equivocación damos la tecla EDIT y no queremos hacer nada. 
Debemos, pues, pensar en una tecla que nos permita salir de la entrada 
sin realizar ninguna modificación. 

Finalmente, la tabla está rellena de blancos inicialmente, un valor de 
la tabla sin ningún número debe ser correcta también. 

La figura 7 contiene las instrucciones para realizar esta operación. 
Puede introducirla, teniendo en cuenta los comentarios que siguen. 

La línea 7010 entra el valor en la variable a$ recordando el valor que 
tiene en este momento el elemento de la tabla. 


Eliminar líneas 500, 510, 520, 530, 540, 
530, 560, 570 y 580. 


1600 1F a=7 THEN GO SUE 7000 : GO TO 1500 


7000 REM Entrada de datos 

7010 INFUT "Valor "+t$(4,c)+" ar"jas 

7020 FRINT AT 21,13" 

TOZO IF añ "o STOFR " THEN RETURN 

7040 LET l = LEN (a) 

7050 FOR io = 1 TO 1 

7060 LET b$ = a$(i TO 12 

7O7O 1 "O"<=b$ AND b$i="9" THEN GO TO 7100 
7080 PRINT AT 21,13"Cifra incorrecta"; 

700 60 TO 7000 

7100 NEXT d 

7110 1F 1l <= ac THEN 60 TO 7140 

¿120 FRINTOAT 21,13 "Numero demasiado grande"; 
7130 TO TOGO 

7140 GO SUB 9900 2 LET t$(4,c)wab 

7130 RETURN 
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La línea 7020 escribe blancos en la línea 21 de pantalla por si ha que- 
dado algún error escrito. Cuando más tarde se entran elementos incorrectos 
se informa con un error en esta línea. 

La línea 7030 sale de esta operación si la tecla pulsada es el STOP. 
Recuerde que hay que pulsar la tecla situada sobre la A con SYMBOL 
SHIFT apretado. No sirve escribir todas las letras de STOP. 

Esta línea añade la especificación de salir de la operación si no que- 
remos hacer nada. 

La línea 7040 busca la longitud del texto entrado. 

La línea 7050 inicia un bucle para repasar cada uno de los símbolos 
entrados en af. 

La línea 7060 selecciona en b$ la letra correspondiente a la posición ¡ 
de la cadena de a$ mediante el operador de fragmentación. Se hace así 
para evitar calcularlo dos veces en la instrucción siguiente. 

La línea 7070 comprueba si b$ es una cifra numérica. En caso afir- 
mativo envía el programa a la línea 7100, que es la continuación del bucle 
para inspeccionar el carácter siguiente. 

Si la respuesta es negativa sigue en la línea 7080, que imprime un. 
mensaje de cifra incorrecta y en la línea 7090 se recicla el programa a una 
nueva entrada (línea 7000). 

En la línea 7110 se pregunta si la longitud es menor o igual que el 
ancho de campo. Si la respuesta es negativa sigue por la línea 7120 co- 
locando un error de que el número es demasiado grande y enviando el 
control a la línea 7000 para hace una nueva entrada. 

Esta precaución se toma no por razones de visualización. Recuerde 
que al encho de caracteres del elemento está fijado y si se entran más 
caracteres se cortan oportunamente. La razón es que el operador va a per- 
der cifras al colocarlo en la tabla y se le advierte de esta circunstancia. 

Si la longitud es la correcta se envía a la línea 7140, en donde se ajusta 
el número a la derecha mediante la subrutina 9900 y se coloca a$ en la 
tabla. 

Finalmente, la línea 7150 devuelve el control al programa principal. 

Observe que en el caso de entrar la cadena vacía el resultado es equi- 
valente a borrar el elemento. En efecto, no pasa por el bucle porque el valor 
final es más pequeño que el inicial. Por otra parte cumple la condición de 
la línea 7110 y alcanza el final de la subrutina. 

Una vez tecleadas estas subrutinas ejecute el programa. 

En primer lugar la tabla aparece toda en blanco. Apriete la tecla EDIT 
y se inicia la subrutina 7000. 

Conteste a la pregunta mediante unas letras o un número con deci- 
males y el programa debe responderle con el error cifra incorrecta. 

Teclee ahora un número de más de 7 cifras y observe el error que le 
aparece. 

Finalmente, teclee un número correcto y se finaliza la subrutina co- 
rrectamente. 

Mueva el cursor y vuelva sobre el número anterior. 

Le advertimos que si aprieta dos veces seguidas la tecla EDIT se le 
borrarán las comillas donde se entra el dato. Puede escribirlas de nuevo y 
colocar el cursor entre ellos. 

Apriete la tecla EDIT. En la pregunta que acompaña el INPUT le apa- 
rece el valor que tiene el elemento. 
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Ahora apriete el STOP (SYMBOL SHIFT + tecla A) y vuelve a la tabla 
sin modificar el número. 

Una vez realizadas las pruebas y confirmado el correcto funciona- 
miento del programa guárdelo en un cassette con el nombre «p3». 


12.6 PRACTICA 4. GUARDAR DATOS EN CASSETTE 


Hemos conseguido una manera cómoda de entrar datos en una tabla, 
modificarlos y visualizarlos. Este trabajo se puede aprovechar en otros pro- 
gramas para que se realicen cálculos. 

Tenemos dos alternativas, o bien incluir el programa de cálculo en este 
programa o bien guardar los datos en un medio magnético y el programa, 
que calcula y lee los datos de este medio magnético. 

La primera alternativa es válida, pero suele ser complicado añadir una 
fase de cálculo en un programa complejo como el que disponemos en este 
momento. 

La segunda alternativa es más atractiva porque el programa de cálculo 
será más limpio y, por lo tanto, más comprensible. Además, a una misma 
tabla se le pueden realizar cálculos distintos con programas distintos y el 
mismo programa nos permite trabajar con tablas distintas. 

El único medio magnético de que disponemos es la cinta de cassette 
y lo utilizaremos para grabar esta tabla. 

En primer lugar el ZX-Spectrum dispone de dos instrucciones básicas 
(LOAD y SAVE) para realizar esta transferencia de datos al cassette. 

La manera como se utilizan para guardar son las siguientes: 


LOAD "numeros" DATA n(0 
LOAD "textos" DATA n$() 
SAVE "numeros" DATA n( 
SAVE "textos" DATA né() 


el significado de LOAD y SABE ya lo conocemos por el capítulo 8 del vo- 
lumen ll de la Enciclopedia. El primero significa cargar desde cassette a 
memoria y el segundo guardar desde memoria a cassette. 

En todos los casos le sigue un nombre o una variable textual que indica 
que se desea cargar o grabar una porción de cinta magnética con este 
nombre. 

En las instrucciones hemos distinguido estos nombres para indicar que 
en unos casos la transferencia es de números y en otros de texto. 

Las instrucciones van seguidas de la palabra DATA para indicar al BA- 
SIC que se quieren transferir datos. 

Finalmente, aparece el nombre de la tabla o lista que se quiere trans- 
ferir. Hemos escogido el nombre de n() o n£() para una tabla de números 
o una de textos respectivamente. Cuando se utiliza una tabla de números 
se transfieren números y cuando se utiliza n$() se transfiere texto. En todo 
caso, en la práctica que estamos realizando se ha partido del supuesto de 
que en la tabla entramos números enteros. 
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Figura 8 Adiciones para cargar 
y guardar la tabla en cassette. 
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El efecto de estas instrucciones es igual a los del LOAD y SAVE de 
programas y la nomenclatura de los nombres es también la misma. La única 
diferencia es que en los primeros se guardan las instrucciones de los pro- 
gramas y en la segunda se guardan los datos contenidos en una tabla. 

En nuestro programa lo único que hace falta es añadir las operaciones 
que nos manipulan el cassette. 

En una primera fase definiremos qué teclas desencadenan estas ope- 
raciones. 

Tomamos para la operación de carga la letra j tanto en mayúsculas 
como en minúsculas. Se hace esta elección porque corresponde a la tecla 
de la palabra clave LOAD. 

Para la operación de guardar se utiliza la letra s (S), porque la palabra 
clave SAVE se encuentra sobre esta tecla. 

Finalmente, aunque no está relacionada directamente con el cassette, 
es necesaria una operación que nos coloque la tabla en blanco totalmente. 
Esta operación es necesaria por la razón siguiente: Editamos una tabla de 
unos datos determinados. Guardamos el contenido en el cassette. Desea- 
mos ahora iniciar una nueva tabla; la operación de limpiar la tabla sirve para 
cumplir esta misión. Su función es equivalente al NEW cuando estamos 
preparando programas. Por ello se toma la letra a (A) como desencade- 
nador. de la operación, pues la tecla contiene la palabra clave NEW. 

La figura 8 indica las líneas que hay que añadir para tener en cuenta 
estas operaciones. 

Las líneas 1700, 1710 y 1720 se deben colocar dentro del bucle de 
órdenes para tener en cuenta estas operaciones que llaman a las subruti- 
nas 6000, 6100 y 6200. 

La fase siguiente es realizar las subrutinas para esta misión. 


LES : OR as="J" THEN 60 DO0O0 160 13500 
1F af="s" OR as="5" THEN GO SUE E TO 1300 
IF at="a" OR a$="A" THEN GO SUB 6200 3:60 300 


REM Carga de tabla 
INFUT "Cargar la tabla de nombres 
LOSo ; 
2 60 SUE 
6040 RETURN 


"jas 


6100 REM Guardar tabla 
O INPUT "Guardar tabla de nombrer”"; 
SAVE a DATA 130) 
RETURN 


REM Limpiar la tabla 
INFUT "Confirma su decisión(5S)"pab 
abi SU AND atole THEN RETURN 
cb O EF 
= 1 TO tc 
LEES 3) 20 
y 


70 RETUEM 


BASIC 


ZX — SPECTRUM 


Comencemos con la subrutina 6000, que pretende cargar una tabla de 
datos desde el cassette en la memoria del ordenador. 

La línea 6010 nos pregunta el nombre de los datos que deseamos guar- 
dar. Se almacena en la variable a$. 

La línea 6020 es la instrucción que carga desde el cassette los datos 
que tienen el nombre a$ y los coloca, ya que hemos utilizado la palabra 
DATA detrás, en la tabla t$. 

Cuando se ejecuta esta instrucción la pantalla queda en la posición de 
LOAD normal como en un programa. Apriete entonces la tecla PLAY de la 
grabadora. 

Como en el cassette puede existir más de un conjunto de datos apa- 
recen en pantalla los programas y datos, que contiene el cassette. A medida 
que van pasando va cualificando el tipo de elemento, siendo así cuando se 
obtiene el mensaje 


Program: Es que pasa un programa. 
Bytes: Es que pasan números. 
Character array: Es que pasan tablas de caracteres. 


Estos mensajes aparecen en la pantalla hasta encontrar el que se ha 
pedido. Una vez se ha encontrado, la pantalla no contiene el visor sino el 
visor más los caracteres correspondientes a la lista de datos que han pa- 
sado por el cassette hasta alcanzar los que hemos pedido. 

Por lo tanto, después de hacer una carga es necesario volver a visua- 
lizar el visor. La línea 6030 envía a la impresión del visor. Observe que no 
se calcula ni p ni q, que son los argumentos que requiere la subrutina del 
visor. Se mantienen los pedidos en la última vez que se ha pedido la vi- 
sualización del visor. 

Finalmente la línea 6040 retorna al programa principal. 

La operación de guardar unos datos en cinta es muy semejante a la 
anterior. 

La ejecución de la línea 6120 desencadena la aparición del mensaje 


Start Tape. Then press any key. 


que nos informa de que pongamos en marcha la cinta y pulsemos cualquier 
tecla. Recuerde que debe desconectar el cable que va a EAR y pulsar las 
teclas REC y PLAY de la grabadora para iniciar la grabación. 

Aparecen las líneas típicas de grabación en los bordes de la pantalla 
hasta que finaliza y vuelve el cursor a aparecer en pantalla. En este mo- 
mento debe parar la gravadora. 

Finalmente, desde las líneas 6200 hasta la 6280 es la operación de 
limpiar la tabla colocando todos sus elementos a blanco. 

En la línea 6210 se pregunta confirmación para esta operación, ya que 
si se ha pulsado por error podría destruir mucho trabajo realizado. Si se 
pulsa una s tanto en mayúscula como en minúscula se procede a efectuar 
la limpieza, en caso contrario se devuelve el control al bucle de órdenes. 
Esta pregunta se hace en la línea 6220. 

En la línea 6230 se inicia un bucle para las filas y en la línea 6240 un 
bucle para las columnas. En la línea 6250 se llena la matriz de elementos 
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vacíos, que no es necesario ajustar porque el comportamiento del ZX-Spec- 
trum para rellenar una tabla es añadir blancos, que en este caso nos da 
igual que sea por la derecha que por la izquierda. 

Las líneas 6260 y 6270 cierran el bucle. 

La línea 6280 ejecuta la subrutina de ir al inicio de la tabla y la línea 
6290 devuelve el control al programa principal. 

Pase ahora a la fase de pruebas. 

Antes de poder cargar un programa es necesario tener preparados al- 
gunos datos en el cassette. Para ello entre algunos valores en la tabla. Una 
sugerencia es entrar la suma de los índices de los elementos, así en la 
posición fila 2 y columna 3 se entra un 5 que es la suma de 2 más 3. No 
es necesario que entre estos números en toda la matriz. 

A continuación apriete la tecla S para realizar la operación de guardar 
la tabla. La operación le pregunta el nombre. Conteste, por ejemplo, n?7. Le 
aparece entonces el mensaje de que ponga la grabadora en marcha y 
apriete cualquier tecla. Hágalo, no se olvide de desconectar el EAR. 

Aparecen en la pantalla las típicas rayas que aparecen cuando se 
graba un programa. A continuación el cursor vuelve a aparecer sobre la 
tabla. 

Pulse la tecla A para borrar toda la tabla. Tenga paciencia, es una ope- 
ración un poco larga, el ordenador se toma de 45 segundos a un minuto 
aproximadamente. 

Empiece a rellenar la tabla otra vez, pero ahora utilice en cada casilla 
el número de fila a que pertenece. 

Una vez rellenada una parte ejecute otra vez la operación de guardar 
pero con el nombre n2. 

En este punto conecte el EAR y apriete la operación de carga, con la 
tecla J. No es necesario poner a blancos otra vez la tabla, al cargarse ya 
se escribe encima de lo que tenemos ahora. 

Si le pregunta el nombre escriba n?. 

La pantalla se coloca en el parpadeo típico de carga de un programa. 
Rebobine la cinta y apriete el PLAY. 

La cinta va pasando. Si se se ha rebobinado al principio, aparecen los 
mensajes siguientes: 


Program p1 
Program p2 
Program p3 
Program p4 


Character Array n1 


y se procede a la carga de los datos. 

Un vez finalizado detenga la cinta y observe cómo la tabla está rellena 
con los datos colocados en la primera tabla editada. 

Realice otra vez la operación pero dando como nombre n2. No hace 
falta que rebobine la cinta. 

Después de la operación tendrá en la tabla lo que ha editado en último 
lugar. 
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